Question

напишите программу,желательно на паскале

Answer 1

var b:array [1..20] of integer;
best,i:integer;
begin
randomize();
for i:=1 to 20 do
b[i]:=random(31);
for i:=1 to 20 do
write(b[i],' ');
writeln();
best:=b[1];
for i:=1 to 20 do
begin
if b[i]>best then
best:=b[i];
end;
writeln('Best: ',best);
end.