Вводится последовательность из N целых чисел. Найти, сколько в ней нулей.
PROGRAM PRG2_2;
VAR N, X, К, I : INTEGER;
BEGIN
REPEAT
WRITE(‘ВВЕДИТЕ ДЛИНУ ПОСЛЕДОВАТЕЛЬНОСТИ N = ‘);
READLN (N);
UNTIL N>0;
K:=0;
FOR I:= 1TON DO
BEGIN
WRITE(‘BBEДИTE X =’);
READLN (X);
IF X = 0 THEN
K:=K+1
END;
IF К = О THEN
WRITE(‘НУЛЕЙ НЕТ’)
ELSE
WRITELN(‘КОЛИЧЕСТВО НУЛЕЙ РАВНО К = ‘, К);
END.
Для решения задачи:
— формируем тело программы и описываем переменные;
— вводим длину последовательности N и устанавливаем начальное значение К;
— последовательно считываем числа, и если число равно нулю, то увеличиваем значение счетчика К;
— в зависимости от значения К выводим результат.
Переменные:
N — количество чисел;
I — переменная цикла;
X — очередное число;
К — количество нулей.