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

Ответы 1

  • Program Summa;Uses CRT;var a,sum:integer;Begin Write('Введите 10 положительных и 10 отрицательных чисел'); Read(a); sum:=0; if a > 0 then sum:=sum+a; writeln('sum=',a)end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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