Nhập dãy số in ra màn hình trung bình cộng các số lẻ và tổng dãy vừa nhập

progam Day;

use crt;

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

      n,i,T,TB,d: integer;

Begin

         clrscr;

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

         for i:=1 to n do

         begin

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

                  if A[i] mo2<>0 then

                  begin

                           TB:=TB+A[i];

                           d:=d+1;

                  end;

                  T:=T+A[i];

         end;

         writeln(‘Trung binh cong cac so le cua day = ‘,TB/d:2:2);

         write(‘Tong cua day so = ‘,T);

         readln

End.