Помогите пожалуйста с программированием в Паскале.
Создать одномерный целочисленный массив , заполненный случайным образом.

Большое спасибо! :)

program test;vara:array[1..1000] of integer;i:integer;beginrandomize;for i:=1 to 1000 do begina[i]:=random(1,1000);writeln(a[i]);end;end.