Ответы на вопрос:
Var a: array [1..1000] of integer; i,j,n,k: integer; begin write ('количество чисел'); read(n); for i: =1 to n do begin read(a[i]); end; for i: =1 to n do begin if (a[i] mod 2)= 0 then a[i]: =0; end; for i: = 1 to n do if (a[i]> 0) then writeln(a[i]); end.
Популярно: Информатика
-
Ульяна1111111212.04.2023 08:41
-
katja06060629.10.2021 15:41
-
Nekomimi1116.03.2022 08:07
-
Даша2991122.03.2021 02:50
-
wof123423.09.2020 18:49
-
papapapapap10.02.2022 03:44
-
konulrzayevaa201.08.2020 12:55
-
лиззка1605.04.2021 03:10
-
misterion1003.02.2021 12:08
-
paniann1728.08.2022 23:45