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

    написать программу в паскале

Ответы 1

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

          s,s1,i: integer;

    begin

      s:=0;

      s1:=1;

      for i:=1 to 10 do 

        begin

          readln(a[i]);

          if a[i]>0 then s:=s+a[i];

          if a[i]<0 then s1:=s1*a[i];

        end;

      writeln('Сумма: ',s,', произведение: ',s1);

    end.

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

Еще вопросы

Войти через Google

или

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

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

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