Ответы на вопрос:
Program r1; var a: array [1..16] of integer i: integerbegin for i: =1 to 16 do a[i]: random(41)-20; for i: = 1 to 16 do if a[i] mod 2 = 0 then writeln(' i,' '); end.
Популярно: Информатика
-
Зоромдед07.11.2020 03:53
-
KotickMacks10.01.2020 11:02
-
Cachu21.01.2022 15:28
-
Ренатка1112310.07.2020 16:33
-
tanyainua03.05.2020 22:18
-
OlegNovikov21228.06.2021 04:24
-
Памагиш19.07.2022 14:50
-
karma228cska16.03.2021 04:04
-
КучеренкоИнна09.03.2020 01:52
-
Muxaska12324.04.2020 23:04