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

Question

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

Answer 1

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);

Comments

Примерно так

---

1)Спрашиваем сколько чисел хотят ввести, пусть хотят N.
2) Циклом спрашиваем эти N чисел, запоминаем в массив
3) Шагаем по массиву, если число отрицательное то умножаем на него.

---

спасибо огромное