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.