Максимальное количество цветов равно двум в степени, равной количеству бит, отведенных под хранения информации о цвете. В данном случае два во второй степени - <u>четыре цвета</u>.
Одеждой техника не та орудие
Const
N = 20;
var
a: array [1..N] of integer;
k: integer;
begin
k := 0;
for var i := 1 to N do
begin
a[i] := Random(41) - 20;
if a[i] < 0 then k := k + 1;
write(a[i]:4);
end;
writeln;
writeln('Отицательных: ', k);
end.