var
n, i, e, m : Integer;
yes : Boolean;
begin
Readln(n);
m := 1;
yes := False;
for i := 1 to n do
begin
Readln(e);
if e > m then m := e;
if e < 30 then yes := True;
end;
Writeln(m);
if yes then Write('YES') else Write('NO');
end.
Var
a,b,am,nod,bb:integer;
begin
readln(a);
writeln('--------');
readln(b);
am:=a mod b;
bb:=b;
while am*b<>0 do
if am>b then am:=am mod b else b:=b mod am;
nod:=am+b;
writeln(a div bb,' ',a mod bb div nod,'/',bb div nod);
end.
Ввод:
14
-------
3
Вывод:
4 2/3
Смотря какое.
Растровое - из пикселей.
Векторное - из описания геометрических фигур.
Фрактальное - по уравнению.
Я думаю, тут проще без подпрограмм будет.
const
n=5;
m=10;
var i,j,sn,sp:integer;
s:string;
a:array[1..n,1..m]of integer;
begin
s:='Нет таких';
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(-9,5);
write(a[i,j]:4);
if a[i,j]>0 then sp:=sp+1;
if a[i,j]<0 then sn:=sn+1;
end;
writeln;
if sp>sn then s:='Да, есть';
sp:=0;
sn:=0;
end;
writeln(s);
<span>end.</span>