Заполнить массив А(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.