Запросить у пользователя число n. Построить связный список из n элементов, заполненный случайными числами из диапазона [-5; 5]. Вывести на экран связный список.

Текст программы на Паскале:

var

n: integer;

i: integer;

spisok: array [1 ... 100000] of integer; / /представим список в виде одномерного массива

begin

writeln ('Введите число n: ');

readln (n);

for i : = 1 to n do begin

spisok [i] : = (random (11) - 5); / /присваем случайные значения от - 5 до 5 каждому элементу массива (списка)

end;

writeln ('Полученный список: ');

for i : = 1 to n do begin

write (spisok [i]); / /выводим все элементы массива (списка) через пробел

write (' ');

end;

end.