Заполнить массив А (21) случайными числами в диапазоне от - 10 до 10. Вывести его на экран. (Pascal ABC).

const

n = 21;

var

a: array [ 1 ... n ] of integer;

i: integer;

begin

cls;

writeln ('Заполнение массива случайными числами в диапазоне от - 10 до 10.');

randomize;

for i : = 1 to n do

begin

a[i] : = random (20) - 10;

writeln ('a[', i, '] = ', a[i]);

end;

end.