program chuongtrinh;
uses crt;
var 
    n, i, lon, nho, csl, csn, s : longint;
    a : array[1..256] of longint;
begin
    clrscr;
    writeln('Nhap mang: ');
    readln(n);
    for i := 1 to n do read(a[i]);
    lon := a[1];
    nho := a[1];
    csl := 1;
    csn := 1;
    writeln;
    for i := 1 to n do write(a[i], ' ');
    writeln;
    write('Cac so chan: ');
    for i := 1 to n do
    begin
        if (a[i] mod 2 = 0) then write(a[i], ' ');
    end;
    writeln;
    write('Cac so le: ');
    for i := 1 to n do
    begin
        if (a[i] mod 2 = 1) then write(a[i], ' ');
    end;
    writeln;
    write('Cac so am: ');
    for i := 1 to n do
    begin
        if (a[i] < 0) then write(a[i], ' ');
    end;
    writeln;
    write('Cac so duong: ');
    for i := 1 to n do
    begin
        if (a[i] > 0) then write(a[i], ' ');
    end;
    writeln;
    write('Chi so la so le: ');
    for i := 1 to n do
    begin
        if (a[i] mod 2 = 1) then write(i, ' ');
    end;
    writeln;
    write('Chi so la so chan: ');
    for i := 1 to n do
    begin
        if (a[i] mod 2 = 0) then write(i, ' ');
    end;
    writeln;
    write('Chi so la so am: ');
    for i := 1 to n do
    begin
        if (a[i] < 0) then write(i, ' ');
    end;
    writeln;
    write('Chi so la so duong: ');
    for i := 1 to n do
    begin
        if (a[i] > 0) then write(i, ' ');
    end;
    for i := 2 to n do
    begin
        if (a[i] > lon) then
        begin
            lon := a[i];
            csl := i;
        end;
        if (a[i] < nho) then
        begin
            nho := a[i];
            csn := 1;
        end;
        s := s + a[i];
    end;
    writeln;
    writeln('So nho nhat: ', nho);
    writeln('So lon nhat: ', lon);
    writeln('Chi so nho nhat: ', csn);
    writeln('Chi so lon nhat: ', csl);
    write('Tong: ', s);
end.