Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.