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.

uses crt;

var i,n:shortint;

a:array[1..10] of integer;

    ta,tl,tong,t5:integer;

BEGIN

        clrscr;

        write('Nhap N:'); readln(n);

        ta:=0; tl:=0; tong:=0; t5:=0;

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

                if a[i]<0 then ta:=ta+a[i];

                if i mod 2=1 then tl:=tl+a[i];

                tong:=tong+a[i];

                if a[i] mod 5=0 then t5:=t5+a[i];

        end;

        writeln('A)',ta);

        writeln('B)',tl);

        writeln('C)',tong/n:0:3);

        writeln('D)',t5);

        readln

END.

Chúc bạn học tốt!