Заполнить массив случайными числами и вывести в консоль 40 элементов…

Const n=40; Var a: array[1… n] of integer; i: integer; Begin randomize; for i: =1 to n do a[i]: =random (1000,2000); for i: =1 to n do begin write (a[i],'); if (i mod 10)=0 then writeln; end; readln; end.