Посчитать количество отрицательных элементов в паскале сделать нужно
Посчитать количество отрицательных элементов в паскале сделать нужно
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы