Nhập dãy số in ra màn hình trung bình cộng của dãy, trung bình cộng các số chẵn

progam Day;

use crt;

var A:array [1..500] of integer;

      n,i,d: integer;

      TB.TBc: real;

Begin

         clrscr;

         write(‘Nhap so phan tu: ‘); readln(n);

         for i:=1 to n do

         begin

                  write(‘A[‘,i,’]=’); readln(A[i]);

                  TB:=TB+A[i];

                  if A[i] mod 2=0 then

                  begin

                           TBc:=TBc+A[i];

                           d:=d+1;

                  end;

         end;

         TB:=TB/n;

         TBc:=TBc/d;

         writeln(‘Trung binh cong cua day = ‘,TB:2:2);

         write(Trung binh cong cac so chan = ‘,TBc:2:2);

         readln

End.