Ответы на вопрос:
Var x,i: integer; mass: array[1..15]of integer; begin randomize; x: =0; for i: =1 to 15 do begin mass[i]: =random(20)+1; if mass[i]=3 then x: =x+1; write(mass[i]+' '); end; writeln(''); writeln('количество элементов равных трем = '+x); end.
Популярно: Информатика
-
annalol0001.06.2020 14:46
-
Guletta26.03.2021 22:59
-
chesht04.05.2022 00:52
-
lurudzheva16.05.2022 06:36
-
aleksandrsamor28.11.2021 21:42
-
masenkon52430.07.2020 10:45
-
Kr1c21.05.2022 15:04
-
Polina1550528.03.2021 23:35
-
Vasyok22818.04.2021 04:42
-
nastyalisi4ka115.09.2021 22:52