заполнить массив случайными числами и найти разность между максимальным и минимальным
Answers & Comments
vika22675
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.
1 votes Thanks 1
katerina0354
А можно еще одну?) Заполнить массив случайными числами и найти сумму элементов на нечетных местах
Answers & Comments
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.