Ответы на вопрос:
Ух уж олимпиадники, елементарную решать не могут.. var n,i,k,min: integer; a: array[1..1000] of integer; begin readln(n); for i: =1 to n do read(a[i]); min: =a[2]; for i: =2 to n do if i mod 2=0 then if a[i]< min then min: =a[i]; writeln(min); end.
Популярно: Информатика
-
Кира361119.12.2021 08:56
-
MrAlexCross19.12.2022 23:21
-
msSisi110.06.2023 20:51
-
ддд4умник01.12.2020 06:52
-
StasKras0105.04.2020 20:22
-
AnDrejk415.11.2020 22:24
-
litovka24.05.2023 21:04
-
AngreilKyzmun28.07.2021 18:39
-
Помогите2344117.04.2020 17:24
-
srochno614.05.2021 20:23