Заполнить массив случайными числами и найти разность между максимальным и минима
Заполнить массив случайными числами и найти разность между максимальным и минимальным
Гость
Ответ(ы) на вопрос:
Гость Var A: array [1 .. 20] of integer;
Max, min: integer;
Begin
for i:=1 to 20 do
A[i]:=random;
for i:=1 to 20 do
write (a[i],' ');
for i:=1 to 20 do
if (A[i]>Max) then
Max:= A[i] else
if (A[i]< min) then
min:=A[i]
end.
Не нашли ответ?
Похожие вопросы