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

  • Дан массив в котором есть положительные и отрицательные числа. Найти отдельно сумму положительных чисел и сумму отрицательных чисел.

Ответы 2

  • var

    a:array[1..100] of integer;

    i,s,r:integer; 

    begin

    for i:=1 to 100 do read(a[i]);

    for i:=1 to 100 do

    begin

    if a[i]<0 then r:=r+a[i] else s:=s+a[i];

    end;

    writeln('сумма всех положительных чисел= ',s);

    writeln('сумма всех отрицательных чисел= ',r);

    readln

    end.

    Посчитает максимум 100 чисел. 

    • Автор:

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

  • var a:array[1..100] of integer;

    i,ms,ps:integer;

    Begin

     {vvod massiva A}

     for i:= 1 to 100 do

       if a[i] > 0 then ps:=ps+a[i]

       else ms:=ms+a[i];

     writeln(ps,ms);

     

    End.

    • Автор:

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

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

Еще вопросы

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

Войти через Google

 или

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

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

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