ДАМ 40!!! БАЛЛОВ!!! ПОМОГИТЕ!!! Написать программу, в которой вводится последовательность...

Question

ДАМ 40!!! БАЛЛОВ!!! ПОМОГИТЕ!!!
Написать программу, в которой вводится последовательность целых чисел, оканчивающаяся нулем (т.е. признак окончания ввода чисел в последовательности – ввод нуля). Программа должна посчитать и вывести количество отрицательных чисел в этой последовательности. Программу реализовать двумя способами: при помощи цикла с пред- и пост- условием.

Comments

И где эти 40 баллов?

Answer 1

Var
    number: integer;
    k: integer;

begin
    repeat
        write('number = ');
        readln(number);
        
        if number < 0 then k := k + 1;
    until number = 0;
    
    writeln('Кол-во отрицательных = ', k);
end.