• Помогите ,поооожалуйста!Срочно очееень
    последовательно вводятся n целых чисел найти сумму всех положительных среди них проверить для n =10 

Ответы 1

  • var A:array [1..10] of integer;I,S:integer;beginfor i:= 1 to 10 do beginwriteln('A[',i,']=');readln(A[i]);end;S:=0;for i:= 1 to 10 doif (A[i]>0) then s:=s+A[i];writeln('S=',S);readln;end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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