Задать вопрос Регистрация
Помочь другим

  • вводится последовательность чисел , 0 - конец последовательности . вычислить сумму чисел после первого отрицательного

Ответы 1

  • Если на паскале 

    program dds;

    const n=10;var a:array[1..n]of integer;i,o,s,z:integer;begin randomize;s:=0;z:=0;a[n]:=0;a[n]:=0;for i:=1 to n-1 do a[i]:=random(10)-5; for i:=1 to n do if (a[i]<0) and (z=0) then begin z:=1; for o:=i+1 to n do s:=s+a[o];end;for i:=1 to n do write(a[i]:4);writeln;write('symma=',s);

    readln;end.

    • Автор:

      mariela
    • 6 лет назад
    • 0

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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