Question

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

Answer 1

Способ 1

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

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

Способ 2

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

019adf598d17f4fdf95e0f6d96ef3d37.pas