Заполнить линейный массив из 10 элементов случайными - вопрос №9215311104040 от sadovskaya02 21.11.2022 18:54

Question

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

sadovskaya02 · 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.