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

Ответы 1

  • var i,a,s:integer;

    begin

    for i:=1 to 10 do begin readln(a); if a>0 then s:=s+a; end;

    writeln(s);

    end.

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

Войти через Google

или

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

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

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