Ответы на вопрос:
Var a: array [0..1010] of longint; n,max,i: longint; begin read (n); for i: =1 to n do read (a[i]); max: =a[1]; for i: =2 to n do if ((max< a[i]) and (a[i] mod 2=0)) then max: =a[i]; write (max); end.
Популярно: Информатика
-
lhe24.12.2022 13:00
-
ДашуляСупер20.10.2020 13:28
-
olga69501.12.2022 05:39
-
vika1232504.03.2023 13:14
-
amg130321.12.2021 12:09
-
gasimovaa4418.08.2021 08:22
-
7936607.04.2023 18:33
-
gulzazak19.02.2022 00:39
-
опв401.04.2020 00:50
-
ivanovaa75013.09.2020 00:46