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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.