Ответы на вопрос:
Var m: array[1..10] of integer; a,i,k: integer; begin k: =0; for i: =1 to 10 do read(m[i]); readln(a); for i: =1 to 10 do if m[i]=a then k+=1; writeln(k); end.
Популярно: Информатика
-
9854123g07.02.2021 15:18
-
полли4325.04.2023 00:36
-
Lerochka020423.05.2023 12:55
-
malika040829.08.2022 09:35
-
Lilya14609.11.2021 03:14
-
vova2505102.06.2022 16:10
-
ирбиз18.05.2020 22:43
-
yulyakarpenko329.03.2022 03:19
-
Fleksander16.12.2022 04:34
-
glebik2889806.08.2021 16:27