• Написать программу
    Пользователь вводит 5 целых чисел,программа находит сумму всех отрицательных и произведение всех положительных чисел

Ответы 1

  • uses CRT;var i,s,p,a,n:integer;begin  p:=1;   write('введите кол-во чисел ');  readln(n);  for i:=1 to n do begin                            write('введите ',i,'число: ');                            readln(a);                            if a<0 then s:=s+a                            else p:=p*a                          end; writeln('сумма отрицательных чисел равна: ',s); writeln('произведение всех положительных чисел равно: ',p)end.как-то так)
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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