Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей. Измените что надо сайт не пропускает.

var i, n, t, k:Inteer;

begin

write ('n:=') ; readln (n) ;

for i:=1 to n do begin

write (i,'-> ') ; readln (t) ;

if t=0 then inc (k) ;

end;

writeln (k) ;

end.

Question

Информатика

Леруся

Сегодня, 16:34

Вводится число N, а затем N чисел. Подсчитайте, сколько среди данных N чисел нулей. Измените что надо сайт не пропускает.

var i, n, t, k:Inteer;

begin

write ('n:=') ; readln (n) ;

for i:=1 to n do begin

write (i,'-> ') ; readln (t) ;

if t=0 then inc (k) ;

end;

writeln (k) ;

end.

+5

Ответы (1)

Знаете ответ на вопрос?

Мариня · Answer 1

Ловите, сам написал, сам проверил, все работает.

var input, num, nulls, i: integer;

begin

write ('Введите кол-во чисел: ') ;

readln (input) ;

for i : = 1 to input do begin

write ('Введите число номером ', i, ': ') ;

readln (num) ;

if num = 0 then inc (nulls, 1) ;

end;

writeln ('Кол-во нулей: ', nulls) ;

end.