Ответы на вопрос:
Не знаю сойдет или нет, но как бы эту давно решал. var a: array [1..20] of integer; i: integer; begin for i: =1 to 20 do begin a[i]: =random(30)+1; if a[i] mod 3 = 0 then write (a[i],' '); end; readln; end.
Популярно: Информатика
-
dreadman98903.10.2022 19:05
-
asca8221.04.2020 08:20
-
zD3VOLYx19.02.2022 20:49
-
katrinvar01.10.2020 15:08
-
qazdhnvd19.01.2020 09:02
-
Niki191729.11.2021 06:14
-
Vetvika3103.01.2022 18:09
-
angelinasolovev02.12.2021 17:05
-
eminememetova214.07.2022 08:08
-
paa05040315.05.2023 04:16