Ответы
Ответ дал:
0
Var
m: array [1..10000] of integer;
k,i:integer;
Begin
k:=0;
randomize;
For i:=1 to 10 do
read(m[i]);
For i:=1 to 10 do
If m[i]=0 then k:=k+1;
Writeln(k);
end.
Ответ дал:
0
это прям точно?
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад