Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Вводятся 10 чисел.Вывести на экран суммы положительных и отрицательных чисел и их количество

Ответ оставил Гость

Var a,b,c,d,m,i:integer;
beginfor i:=1 to 10 do
begin
writeln(Введите число);
read(m);
if m>0 then  begin
a:=a+1;
c:=c+m
end
else
begin 
b:=b+1;
d:=d+m;
end;
end;
writeln(Кол-во положительных равно ,a);
writeln(Кол-во отрицательных равно ,b);
writeln(Сумма положительных равна ,c);
writeln(Сумма отрицательных равна ,d);
end.