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

Ответы 1

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

      zaria
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years