Ответы
Ответ дал:
2
var a,i,n,k : integer;
begin k := 0;
write ('n = ');
readln (n);
for i := 1 to n do
begin read (a);
if a =0 then
k := k +1; end;
writeln (k,' - кол-во нулей');
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
7 лет назад