Ввести с клавиатуры 25 чисел. Посчитать сколько нолей из этих 25 чисел.

Var i,k:integer;
s:string;
Begin
  for i := 1 to 25 do begin
   readln(k);
   s:=s+inttostr(k);
  end;

  k:=0;
  for i := 1 to length(s) do
   if s[i]=0 then k:=k+1;

  writeln(K=,k);
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.