Ответы на вопрос:
Если нужно только эти числа(5,4,3,5,5,5,4), то вот программа.var b,c1,c2,c3: integer; a: array [1..7] of integer; i: byte; begina[1]: =5; a[2]: =4; a[3]: =3; a[4]: =5; a[5]: =5; a[6]: =5; a[7]: =4; for i: = 1 to 7 do begincase a[i] of3: c1: =c1+1; 4: c2: =c2+1; 5: c3: =c3+1; end; end; writeln('количество чисел 5 в данном ряду=',c3); writeln('количество чисел 4 в данном ряду=',c2); writeln('количество чисел 3 в данном ряду=',c1); end.
Популярно: Информатика
-
8928616350313.09.2021 22:59
-
найксон23.06.2020 07:09
-
cvetlana15a16.05.2022 02:31
-
nikeenokyana17.07.2022 02:07
-
dominocos21.02.2022 01:18
-
ainura832602.11.2020 22:16
-
dasha28118216.08.2021 22:11
-
AnnA12Demidenko31.10.2020 20:13
-
danilmuratov20p02c8m04.10.2022 14:01
-
baron203201220.11.2021 01:42