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

PascalABC позволяет нам писать меньше, понятнее и красивее.

1. begin
2. var arr := SeqRandomInteger(16,  -20, 20).ToArray.Println.Where(x->x < 0).Count.Println;
3. end.

Старее этого только динозавры.