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