Упражнение 2 (Обработка числовых последовательностей)

Вводится последовательность из 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 — очередное число;

К — количество нулей.

Добавить комментарий