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

Question

Информатика

Самуил

4 сентября, 08:48

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

+2

Ответы (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.