program Hello;
uses crt;
var n,i,max,min,vta,vtc:integer;
a:array[1..100000] of longint;
begin
clrscr;
min:=high(integer);
max:=low(integer);
readln(n);
for i:= 1 to n do
begin
read(a[i]);
if (min > a[i]) and (a[i] mod 2 = 0 ) then
begin
min := a[i];
vtc:= i;
end;
if (max < a[i]) and (a[i] < 0 ) then
begin
max:= a[i];
vta:=i;
end;
end;
writeln('Day vua nhap: ');
for i:= 1 to n do
write(a[i], ' ');
writeln;
if vtc <> 0 then
writeln('Gia tri chan nho nhat trong day la ', min, ' o vi tri ', vtc)
else
writeln('Khong co so chan trong day.');
if vta <> 0 then
writeln('Gia tri am lon nhat trong day la ', max, ' o vi tri ', vta)
else
writeln('Day khong co so am.');
readln;
readln;
end.