Заполнить массив случайными числами и найти разность между максимальным и минимальным

Question

Заполнить массив случайными числами и найти разность между максимальным и минимальным

Answer 1

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.

Comments

А можно еще одну?) Заполнить массив случайными числами и найти сумму элементов на нечетных местах

---

начало до random всё тоже

---

ну это понятно

---

потом добавишь в начале переменную а

---

for i:=1 to 20 do

---

if (a[i] mod 2 <> 0) then a:=a+ A[i]

---

блин

---

(A[i] mod 2 <> 0)

---

короче там после двух знаки больше и меньше

---

окей