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

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]gt;Max) then
Max:= A[i] else
if (A[i]lt; min) then
min:=A[i]
end.

Сергей Стафрин 2019-09-15 01:13:14

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

Никита Лилеков 2019-09-15 01:14:32

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

Элина Барашкова 2019-09-15 01:16:55

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

Владимирович Лариса 2019-09-15 01:22:49

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

Юля Макарейнис 2019-09-15 01:24:26

for i:=1 to 20 do

Маргарита Свинаренко 2019-09-15 01:26:00

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

Гурченков Володя 2019-09-15 01:31:25

блин

Катюша Тарчокова 2019-09-15 01:36:17

(A[i] mod 2 <> 0)

Никита 2019-09-15 01:40:37

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

Мухомеджанова Эльвира 2019-09-15 01:45:39

окей

О проекте

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

Добро пожаловать!