Дано n чисел найти количество чисел со значением больше 10
maksi0071
1
08.09.2019 14:20
1
Другие вопросы по теме Информатика
Valeriakoko
12.09.2021 20:23
kghjg
12.09.2021 20:19
tach11
12.09.2021 20:17
пишитеответ
28.07.2019 08:50
Гавноед24
02.02.2021 10:24
анн57
02.02.2021 10:26
Ggg7376
02.02.2021 10:27
KopiYT
15.01.2022 18:05
секрет93
15.01.2022 18:31
Популярные вопросы
- 1)что значит жить для мцыри ? 2)что узнал мцыри о сибе находясь на...
2 - Могут ли две плоскости,перпендикулярные к третьей плоскости,быть по...
3 - 1пример из детской про самостоятельность....
1 - Определите норму отходов при холодной обработке баранины 1 категории...
3 - Решить систему уравнений графическим...
1 - Обязательная контрольная работа по теме: «производная»вариант – 1 1.знак...
2 - При взаимодействии каких веществ можно получить гидросульфид кадмия?...
2 - 3класс подобрать проверочное слово дуб,мороз,солнце,книга,звездный,грустный,друг,сердце,радостная,окрестность,честный....
3 - Какой объём углекислого газа может образоваться при получении кальциевой...
2 - Проволоку намотали на трубу,радиус трубы равен 6/п метрвов.каое кол-во...
1
Var c,a,n,x:integer;
Begin
read (n);
for a:=1 to N do begin read (x) if x>0
then c:=c+1; end;
write (c,' чисел>10');
end.