//Pascal ABC.NET 3.1 сборка 1219
begin
var ar:=ReadArrInteger(5);
writeln('Отрицательных:',ar.Where(x -> x<0).Count);<br> write('Положительных:',ar.Where(x -> x>0).Count);
end.
Пример ввода:
-1
-2
-3
4
5
Пример вывода:
Отрицательных:3
Положительных:2