Заполнить линейный массив из 10 элементов случайными - вопрос №9214409104040 от Екатерина21082006 01.02.2023 07:08

Question

Информатика: Заполнить линейный массив из 10 элементов случайными числами от -40 до 40. найти максимальный элемент массива. pascal abc

Екатерина21082006 · Answer

Var
a: array [1..10] of integer;
i: byte;
max: integer;

begin
randomize;
max := -100;

for i := 1 to 10 do
begin
a[i] := random(81) - 40;
if a[i] > max then max := a[i];
write(a[i], ' ');
end;

writeln(#13+'Максимальный элемент = ', max);
end.