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

Question

Армен

1 декабря, 18:05

+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.