Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных

Program massiv;

a:array[1..n] of integer; Заместо n следует написать число

i:integer;

Begin

randomize; Инициализация датчика случайных чисел

for i:=1 to n do

begin

a[i]:=random(30)-15; Ячейке а[i] присваивается случайное значение от 0 включительно до 30, после чего из полученного значения вычитается 15, что бы получить подходящий спектр

write(a[i], ); Вывод на экран значений ячеек массива через пробел

end; Конец блока команд for

end. Конец программки