Дана числовая последовательность. Найти сумму положительных элементов,количество нулей и сумму отрицательных элементов. Вывести найденные количества и суммы (если они не были сформированы вывести соответсвующее сообщение).
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
