Question

Дан массив числе А(n). Найти Sra положительных элементов и Sg отрицательных элементов

Answer 1

//Pascal ABC.NET 3.1 сборка 1256

Const
 n=5;

begin
var a:=ReadArrInteger(n);
var Sra:=a.where(x -> x>0).Count;
writeln('Положительных:',Sra);
var Sg:=a.Where(x -> x<0).Count;
writeln('Отрицательных:',Sg);
end.

Пример ввода:
-1
1
-2
2
3
Пример вывода:
Положительных:3
Отрицательных:2