Ответы на вопрос:
Const n=15; var a: array[1..n] of integer; i,k,c: integer; begin k: =0; c: =0; writeln('буква м - 1, буква ж - 2.'); for i: =1 to n do begin readln(a[i]); if a[i]=1 then k: =k+1 else c: =c+1; end; writeln(k,' - м, ',c,' - ж.'); end.
Популярно: Информатика
-
ярок22866615.01.2022 15:25
-
nikzaytsev200128.11.2020 19:20
-
20Iulia26.02.2021 18:33
-
кукла22108.10.2022 17:07
-
linik204.09.2021 20:38
-
alinakat9810.05.2022 16:22
-
dunina201817.02.2022 19:00
-
rushsh117.12.2020 04:46
-
anyakondratenk21.11.2022 13:34
-
batareya66625.02.2023 01:50