Const k=5;
var a:array[1..k] of integer;
i,max:integer;
begin
for i:=1 to k do
begin
a[i]:=random(10)+20;
write(a[i]:3);
end;
writeln;
max:=a[1];
for i:=2 to k do
if a[i]>max then max:=a[i];
writeln(max = ,max);
end.
Пример:
26 25 21 25 20
max = 26
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.