Question

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

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.