program baigiai;
uses crt;
var A:array[1..10] of integer;
      n,i:byte;
      t1,t2,t3,t4:integer;
begin
     clrscr;
     write('Nhap so luong phan tu N: ');  readln(n);
     t1:=0;   t2:=0;   t3:=0;   t4:=0;
     for i:=1 to n do
          begin
               write('Nhap so thu ',i,': ');   readln(A[i]);
               if A[i]<=0 then t1:=t1+A[i];
               if i mod 2=1 then t2:=t2+A[i];
               t3:=t3+A[i];
               if A[i] mod 5=0 then t4:=t4+A[i];
          end;
     writeln('a. Tong cac phan tu <=0 la: ',t1);
     writeln('b. Tong phan tu o vi tri le la: ',t2);
     writeln('c. Trung binh cong cac phan tu la: ',t3/n:2:2);
     writeln(d. Tong cac phan tu chia het cho 5 la: ',t4);
     readln;
end.