Заполнить массив произвольными числами. Вывести полученный массив на экран. (Delphi7).

Question

Информатика

Урбана

29 мая, 22:04

Заполнить массив произвольными числами. Вывести полученный массив на экран. (Delphi7).

+5

Ответы (1)

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

Федотья · Answer 1

Program Project1;

const N = 10;

var a : array [1 ... N] of integer;

i : integer;

begin

randomize;

for i : = 1 to N do

a[i]: = random (100) ;

for i : = 1 to N do

write (a[i],' ') ;

end.