Ответы на вопрос:
Var m: array[1..30] of integer; x,s,i: integer; begin randomize; readln(x); s: =1; for i: =1 to 30 do m[i]: =random(101); for i: =1 to 30 do if m[i]> x then s: =s*m[i]; writeln('произведение элементов массива = ',s); end.
Популярно: Информатика
-
sherlock0w23.09.2022 01:15
-
NikaAs130.05.2020 06:55
-
alfiyagalina06.12.2021 15:08
-
котя38223.08.2020 19:10
-
Antoniow2730.08.2020 14:55
-
vitaly1025.01.2020 08:36
-
NormerSE09.03.2023 12:27
-
varyaa071174708.01.2021 08:54
-
uctni12.03.2022 20:29
-
Gravetalia06.12.2021 13:44