Заполнить массив размерности 100, целыми числами от -33 до 55, а затем вывести его.

Код программы:

var

A:array [1..100] of integer;

i:integer;

begin

for i:=1 to 100 do

begin

A[i]:=random(-33,55);

write...