Tạo mảng B gồm n phần tử nguyên ( n < 20 ). Hãy viết chương trình thực hiện các công việc sau: a. Tính trung bình cộng của các phần tử trong mảng. b. In ra màn hình danh sách các số chẵn trong dãy.

program oken;
uses crt;
var b: array [1..1000] of integer;
    i,n: integer;
    tong: longint;
begin
        clrscr;
        write('nhap so luong phan tu cua mang: '); readln(n);
        tong:=0;
        for i:=1 to n do
                begin
                        write('b[',i,']: '); readln(b[i]);
                        tong:=tong+b[i]
                end;
        write('cac so chan trong mang: ');
        for i:=1 to n do
                if b[i] mod 2=0 then
                        write(b[i],' ');
        writeln;
        writeln('tbc cua mang: ',tong/n:0:3);
        readln;
end.

Program BTH;
uses crt;
var b:array [1..19] of longint;
i,n,tong:longint;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        tong:=0;
        for i:=1 to n do
        begin
                write('b[',i,']: '); readln(b[i]);
                tong:=tong+b[i]
        end;
        writeln('Trung binh cong cua mang: ',tong/n:4:2);
        write('Cac so chan trong mang: ');
        for i:=1 to n do
        if b[i] mod 2=0 then
        write(b[i],' ');
        readln;
end.