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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.