Ответы на вопрос:
Var a,b,c: integer; d: array [1..20] of integer; begin randomize; for a: =1 to 5 do begin d[a]: =random(-100,100); if d[a] mod 2 = 0 then writeln('чётный элемент массива ==> ',d[a]) else writeln('нечётный элемент массива ==> ',d[a]); end; end.
Популярно: Информатика
-
Гауа098710.02.2022 21:52
-
fedorinovkirs02.06.2020 21:52
-
tray5o306.04.2023 01:13
-
anoNim1341417.09.2022 17:41
-
семон123.08.2020 05:39
-
ivanivanlushch08.10.2020 17:23
-
Tommh01.03.2020 02:30
-
huxgehd03.07.2020 12:46
-
nafikovmarat53929.07.2021 22:43
-
Sonechka2005200527.02.2023 15:16