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

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. {Конец программы}