Ответы на вопрос:
Const n=30; var a: array [1..n] of integer; i, j, k: integer; begin for i: =1 to n do readln(a[i]); k: =0; for i: =1 to n do if (a[i]> 9)and(a[i]< 100)and((a[i] mod 10=9)or(a[i] div 10=9)) then k: =k+1; writeln('k = ',k); end. пример (для n=10): 350 79 108 91 56 71 30 39 257 39 k = 4
Популярно: Информатика
-
luciatarasova08.06.2021 09:31
-
Gaxling28.06.2023 16:48
-
haaahahaha1234504.09.2021 15:06
-
Roman78978915.05.2020 03:31
-
yulya15830.12.2021 09:44
-
egor53520.11.2022 03:45
-
ObraztsovaOlga12.05.2023 21:37
-
lizagolovashko05.09.2021 23:11
-
Polybel08.09.2022 17:53
-
GanifaGasanova50510.02.2020 00:07