Imax:=1 for i:=2 to 10 do if a [i]>a [imax] then imax:=i; write ('Наибольший элемнт a[', imax, ' ]=', a[imax]) самостоятельно запишите программу, в которой осуществляется формирование целочисленного массива a из 10 элементов значения которых лежат в диапозоне от 0 до 99,и поиск наибольшего элемента этого массива.

Предыдущий
вопрос Следующий
вопрос

program findMax;

var
a: array[1..10] of integer;
i, imax: integer;

begin
imax := 1;

// заполняем массив случайными значениями от 0 до 99
randomize;
for i := 1 to 10 do
begin
a[i] := random(100);
writeln('a[', i, '] = ', a[i]);
end;

// ищем наибольший элемент массива
for i := 2 to 10 do
begin
if a[i] > a[imax] then
imax := i;
end;

writeln('Наибольший элемент a[', imax, '] = ', a[imax]);
end.