Заполнить линейный массив из 10 элементов случайными - вопрос №1040409214809 от Amdrek 23.09.2020 09:35

Question

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

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