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

  • Вводится 7 чисел. Найти сумму, произведение положительных чисел и количество отрицательных. Через Паскаль. Помогите срочно надо.

Ответы 1

  • vars,p,n,i:integer;mas: array[1..7] of integer;begins:=0;p:=1;n:=0;for i:=1 to 7 doread(mas[i]);

    for i:=1 to 7 do beginif mas[i]>=0 then begins:=s+mas[i];p:=p*mas[i];endelsen:=n+1;end;

    write('summa=', s, ', proizvedenie=', p, ', otrezatelnich=', n);end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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