Информатика, опубликовано 2018-08-22 23:18:35 by Гость
Заполнить массив случайными числами и найти разность между максимальным и минимальным
Ответ оставил Гость
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:=A[i]
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на