Ответы на вопрос:
Program murrrr; 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.
вывод обязательно 1
Объяснение:
с n=1 все идёт без повторов и выводиться 1
с n=4 будет 3 повтора, три раза вычтется 1 и тогда пройдет через действие k>2 с 1 через нет
Популярно: Информатика
-
mariana2002107.07.2022 09:49
-
Фприт20.04.2022 18:41
-
azik5508.06.2020 16:29
-
klanana19.06.2020 15:14
-
мосщчщчпзчх09.05.2023 01:13
-
evgehamorozov14.12.2022 20:36
-
pashalol307.05.2022 00:52
-
Max255656520.04.2022 13:29
-
viktoriyameshh18.09.2021 12:58
-
ktoyatokoyinter25.05.2023 07:52