Вывести массив с 25 элементами, заполненный случайными числами в диапазоне от 0 до 100. Вывести без пояснений через 2 пробела.

Question

Жозефина

13 июля, 06:20

+5

Ответы (1)

Знаете ответ?

Аристарх · Answer 1

Var

i:integer;

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

begin

for i:=1 to 25 do

begin

a[i]:=random (0,100) ;

write (a[i],' ') ;

end;

end.