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.