Помогите сделать в паскале! Описать числовой массив на 25 элементов и заполнить его случайными целыми числами, каждое из которых лежит в пределах от 10 до 50, распечатать содержимое элементов массива в строку.

Question

Емельянка

19 февраля, 18:40

+1

Ответы (1)

Знаете ответ на вопрос?

Викул · Answer 1

Var

i:integer;

a:array[1 ... 25]of integer;

begin

for i:=1 to 25 do

begin

a[i]:=random (10,50) ;

write (a[i],' ') ;

end;

end.