//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
Var i,n:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(38)-25;
write(a[i]:5);
end;
writeln;
for i:=1 to 10 do
n:=n+a[i];
writeln('Сумма всех элементов=',n);
<span>end.</span>