Заполнить линейный массив из 10 элементов случайными - вопрос №9214409104040 от alena1995rusnak 03.05.2022 22:17

Question

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

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