type vector=array[1..1000] of integer;
var v:vector; n,i,s:integer;
begin
    s:= 0;
    write('n=');
    readln(n);
    for i:=1 to n do begin
        write('v[',i,']=');
        readln(v[i]);
    end;
    writeln;
    writeln('toate');
    for i:=1 to n do write(v[i],' ');
    writeln;
    writeln('pare');
    for i:=1 to n do
        if v[i] mod 2 = 0 then write(v[i],' ');
    writeln;
    writeln('imapre');
    for i:=1 to n do
        if v[i] mod 2 = 1 then write(v[i],' ');

    writeln;
    writeln('negative');
    for i:=1 to n do
        if v[i] < 0 then write(v[i],' ');
    writeln;
    writeln('mai mari de 5');
    for i:=1 to n do
        if v[i] > 5 then write(v[i],' ');
    writeln;
    writeln('suma conponentelor');
    for i:=1 to n do
    begin
        s:=s+v[i];
    end;
    write(s);
    writeln;
    writeln('media arimetică');
    for i:=1 to n do
    begin
        s:=s+v[i];
    end;
    write(s/n:0:2);
    s:= 0;
    writeln;
    writeln('pare de pe poziții impare');
    for i:=1 to n do
    begin
        if i mod 2 = 1 then
        begin
            if v[i] mod 2 = 0 then write(v[i], ' ')
        end;
    end;

    writeln;
    writeln('numar de componente pozitive');
    for i:=1 to n do
    begin
        if v[i] > 0 then
        begin
            s:= s+1;
        end;
    end;
    write(s);
    s:=0;

    writeln;
    writeln('numar de 3-uri in vector');
    for i:=1 to n do
    begin
        if v[i] = 3 then
        begin
            s:= s+1;
        end;
    end;
    write(s);
    s:=0;

    writeln;
    writeln('media componentelor pare de pe poziții impare');
    for i:=1 to n do
    begin
        if i mod 2 = 1 then
        begin
            if v[i] mod 2 = 0 then
            begin
                s:= s + v[i];
            end;
        end;
    end;
    write(s/n:0:2);
    s:=0;

end.



    writeln;
    writeln('sortat');
--  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa eu morrrr