Ответ
4/5
(1 оценка)
2

risaclar123
2 года назад
Светило науки - 6 ответов - 15 раз оказано помощи
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.
Мозг
Отвечающий
это прям точно?