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