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

Question

Фантика

3 сентября, 01:34

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