Составьте программу, которая формирует массив из 16 случайных целых чисел от -20 до 20 и подсчитывает количество отрицательных

const n = 16;

var a: array[1..n] of integer; i, k: longint;

begin k := 0; write (\'Элементы данного массива: \'); randomize; for i := 1 to n do begin a[i] := random(40) - 20; write (a[i], \' \'); if a[i] < 0 then k := k + 1; end; writeln; writeln (\'Всего отрицательных элементов массива: \', k, \'.\');end.