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

это вопрос?

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

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

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

С чем?

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