Mảng 1 chiều:
uses crt;
var a:array[1..1000]of longint;
n,i,d,s:integer;
begin
clrscr;
write('Nhap so luong phan tu: ');readln(n);
s:=0;d:=0;
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
if a[i] mod 2=0 then begin
inc(s,a[i]);inc(d,1);
end;
end;
write('Trung binh cong cac so chan: ',s/d:0:2);
readln;
end.
Mảng 2 chiều:
uses crt;
var a:array[1..1000,1..1000]of longint;
n,i,d,s,m,j:integer;
begin
clrscr;
write('Nhap so luong cot: ');readln(n);
write('Nhap so luong hang: ');readln(m);
s:=0;d:=0;
for i:=1 to n do
for j:=1 to m do
begin
write('Nhap phan tu [',i,'][',j,']: ');readln(a[i,j]);
if a[i,j] mod 2=0 then begin
inc(s,a[i,j]);inc(d,1);
end;
end;
write('Trung binh cong cac so chan: ',s/d:0:2);
readln;
end.
