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

найти максимальный элемент в массиве А10,заполненном случайным образом.

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

var

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

  i, max : integer;

begin

  for i := 1 to 10 do a[i] := trunc (random (500));

  max := 1;

  for i := 2 to 10 do

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

  writeln (Максимальный элемент a[, max, ] = , a[max]);

end.