• "составьте программу вычисления суммы элементов от первого отрицательного и до конца"
    (pascal abc)

Ответы 1

  • var mas:array[1..100] of integer; i,n,sum:integer; bool:boolean;begin bool:=false; sum:=0; readln(n); for i:=1 to n do begin  read(mas[i]);  if mas[i]<0 then   bool:=true;  if bool=true then   sum:=sum+mas[i]; end; writeln(sum);end.
    • Автор:

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

Войти через Google

или

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

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

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