Question

9класс информатика,решите в форме паскаль

Answer 1

Const n = 27;
var a:array[1..n] of integer;
i,max:integer;
begin
  max:=-20;
  for i:=1 to 27 do begin
    a[i]:=random(41)-20;
    if a[i]>max then max:=a[i];
    write(a[i]:4);
  end;
  writeln;
  writeln('Максимальное: ',max);
end.