Cho dãy A gồm N số a1, a2,..., aN. Viết bài toán tính trung bình cộng các số chẵn trong dãy. Giúp em với ạ, em cần gấp ạ

Program tinh_tbc;

Uses crt;

Var A :  array [1..150] of integer;

               S,i,n,d : integer;

               Tbc : real;

Begin 

Write ('nhap n='); 

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

S:=0;

d:=0;

For i:=1 to n do 

If A[i] mod 2= 0 then 

Begin

d:=d+1;

S:=S+A[i];

end;

Tbc:=S/d;

Writeln ('Trung binh cong cua day la:', Tbc:8:3);

Readln 

End.

program ct;

uses crt;

vaar A:array[1..1000] of real;

       i,N:integer;

       Tb,S:real;

begin clrscr;

   write('Nhap so phan tu N: '); readln(N);

   for i:=1 to N do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   S:=0; Tb:=0;

   for i:=1 to N do

     if A[i] mod 2=0 then 

       begin

          S:=S+1; Tb:=(Tb+A[i])/S;

       end;

   writeln('Trung binh cong cac so chan trong day la: ',Tb:4:2);

readln;

end.

Học tốt!