Заполнить массив произвольными числами. Вывести полученный массив на экран. ( 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.