Ответы на вопрос:
Uses crt; var a: array[1..5] of integer; n: integer; i: byte; begin for i: =1 to 5 do begin read(a[i]); writeln; end; for i: =1 to 5 do begin if a[i] mod 2 < > 0 then writeln(a[i]); end; end.
Популярно: Информатика
-
shkiper1555510.05.2023 22:56
-
RazzyMatem15.05.2022 13:40
-
yul1975869410.09.2022 17:54
-
ovlvlk18.06.2021 14:52
-
TigerTanya18.11.2022 19:45
-
DalinStreeet24.06.2020 22:39
-
юля41718.02.2022 09:43
-
алия27012.09.2021 05:58
-
vavilon4ik10.05.2023 23:07
-
sawa198917.03.2021 04:43