Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Нахождение наибольшего элемента всего массива. (Паскаль)

Ответ оставил Гость

const n = 10;

var

  a: array[1..n] of integer;

  i, max: integer;

begin

  for i := 1 to n do begin

    a[i] := random(100);

    write(a[i], );

    if(a[i] > max) then max := a[i];

  end;

  writeln;

  writeln(Наибольший эл. массива: , max);

end.