• Ввести с клавиатуры n-любых чисел ,найти количество отрицательных чисел( Паскаль )

Ответы 4

  • Примерно так
    • Автор:

      ellory
    • 6 лет назад
    • 0
  • 1)Спрашиваем сколько чисел хотят ввести, пусть хотят N.2) Циклом спрашиваем эти N чисел, запоминаем в массив3) Шагаем по массиву, если число отрицательное то умножаем на него.
  • спасибо огромное
  • 1.var 2.a, product : real; 3.i, N : integer;4.begin 5.product:= 1; 6.readln(N); 7.for i := 1 to N do begin 8.readln(a); 9.if a < 0 then 10.:= product*a; 11.end;12. writeln(product:0:2);
    • Автор:

      carroll
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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