imax:=1 for i:=2 to 10 do if a [i]>a [imax] then imax:=i; write ('Наибольший элемнт a[',...

Question

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,и поиск наибольшего элемента этого массива.

Answer 1

Как я поняла, нужно было использовать кусок кода, данный выше?

var  
a: array[1..10] of integer; 
imax, i: byte;
begin 
Writeln('Массив:'); 
Randomize; 
for i:=1 to 10 do   
begin     
a[i]:=Random(100);     
write(a[i]:4);   
end; 
imax := 1; 
for i:=2 to 10 do   
if a[i] > a[imax] then imax := i; 
writeln; 
writeln('Максимальный элемент = ', a[imax]:3, ' в позиции ', imax:2);
end.