• Напишите программу на Паскале.
    Дан массив положительных и отрицательных чисел. Вычислить сумму положительных и произведение отрицательных чисел.
    А[1..10]

Ответы 1

  • const m=10;vara:array[1..m] of integer;i,sum,proz:integer;beginsum:=0;proz:=1;for i:=1 to m dobeginread(a[i]);if a[i]>0 thensum:=sum+a[i]elseifa[i]<0 thenproz:=proz*a[i];end;writeln('Сумма положительных чисел= ',sum,' Произведение отрицательных чисел= ',proz);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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