Ответы 1
var
i,n,a,k : integer;
begin
readln (n);
k := 0;
for i := 1 to n do
begin
readln (a);
if a = 0 then
k := k +1;
end;
writeln (k);
end.
i,n,a,k : integer;
begin
readln (n);
k := 0;
for i := 1 to n do
begin
readln (a);
if a = 0 then
k := k +1;
end;
writeln (k);
end.
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?
