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