Составьте программу, которая формирует массив из 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.