Ответы на вопрос:
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.
Популярно: Информатика
-
маша500219.07.2021 17:01
-
missmekhtiyeva11080320.08.2021 13:19
-
mika18324.11.2021 16:22
-
fomicheva3ket31.12.2022 08:12
-
Marys6705.01.2022 21:16
-
fonvg21.10.2020 18:31
-
Sofi1212200625.02.2023 12:35
-
Джина008.10.2020 01:04
-
Aprengreid15.04.2021 14:24
-
irko0023.01.2022 13:00