Популярные вопросы
- Написати твір роздум на тему твір роздум про вчинки людини (по плану)...
3 - Скласты невелыку звязну росповидь, выкорыстовуючи дии слова.. вырышив,...
1 - Подготовте факты и доказательства того,что рим становится сильнейшей...
2 - Что производят в северо восточной сибири...
3 - Іть ! сформулюйте означення рівнобедреного трикутника ? )...
1 - Описание реки волги. 1)объясните зависимость характера течения от...
3 - Рассчитайте массу продукта реакции соединения бутена -1 с 5,6 л хлора...
3 - Скласти діалог з подругою у якому йдеться про нездужання...
1 - Что такое фольклор? (по музыке надо) искала в интернете, но нашла...
3 - 1.y=x^3-3x^2+6 постройте график функции 2. при каких значениях параметра...
1
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.