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

Question

Информатика

Ярослава

20 мая, 00:12

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

+4

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