Ответы на вопрос:
Var a, n, i, c: integer; begin c : = 0; readln(n); for i : = 1 to n do begin read(a); if(a < = 17) then c : = c + 1; end; writeln(c); end.
Популярно: Информатика
-
kvashenko40307.02.2023 19:37
-
abereziuk201702.05.2022 04:53
-
ВероникаКарпова16.08.2021 20:54
-
Anorwen26.05.2020 04:15
-
аноним437813.02.2023 00:19
-
Фикус0412.09.2022 05:59
-
nastiya1111machneva15.05.2021 05:59
-
Саша7777777722.09.2022 06:30
-
vika208411.04.2023 17:49
-
алпплла29.02.2020 03:29