Question

Дана числовая последовательность. Найти сумму положительных элементов,количество нулей и сумму отрицательных элементов. Вывести найденные количества и суммы (если они не были сформированы вывести соответсвующее сообщение).

Answer 1

var
a,s,s2:real;
k,n,i:integer;
begin
readln(n);
    for i:=1 to n do
        begin
            readln(a);
               if a=0 then
                  k:=k+1;
               if a>0 then
                   s:=s+a;
               if a<0 then
                   s2:=s2+a;
         end;
if k=0 then
   writeln('Нет 0')
else
   writeln('k= ',k);
if s=0 then
   writeln('Нет полож')
else
   writeln('S= ',s);
if s2=0 then
   writeln('Нет отриц')
else
   writeln('S <0 = ',s2);
end.