Одномерный массив x(10) задать с клавиатуры. Найти сумму отрицательных, количество...

Question

Одномерный массив x(10) задать с клавиатуры. Найти сумму отрицательных, количество положительных и произведение ненулевых элементов.

Answer 1

Var a : array [1..10] of integer;
Begin
Poiz
For i:=1 to 10 do readln(a[i]);
For i:= 1 to 10 do
Begin
Proz:= 1;
If a[i] < 0 then sum := sum -a[i];
If a[i] > 0 then kol := kol + 1;
If a[i] <> 0 then proz := proz * a[i];
End;
Write(sum,' ', kol,' ', proz,' ')
End.

Comments

Ой там ошибка при наборе была

---

С планшета :(

---

VAR i, sum, kol,proz : integer;

---

Добавьте и poiz уберите

---

А можно на C++?

---

Заранее спасибо )

---

Не, на си ++ не пишу особо, еще 9 класс не окончил)

---

Аа все равно спасибо