Посчитать количество отрицательных элементов в паскале сделать нужно

Question

Посчитать количество отрицательных элементов в паскале сделать нужно

Answer 1

Var
  count: integer;
input: real;
begin
count := 0;
input := 1;
while (input <> 0) do
begin
write('Введите число(0 - закончить ввод): ');
read(input);
if(input < 0) then
count := count + 1;
end;
write('Количество отрицательных - ', count);
end.

Comments

это правильно

---

это вопрос?

---

а можно без count и input

---

Тебе ведь надо подсчитать кол- во отрицательных элементов? Если да - нельзя без них

---

можешь помочь ?

---

С чем?