program mang_A;
uses crt;
var A:array[1..200] of integer;
n,i,d:byte;
t,tb,max:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
write('A[1]= '); readln(A[i]);
t:=A[1];
tb:=0; d:=0;
max:=A[1];
if A[1] mod 2=0 then
begin
tb:=tb+A[1];
d:=d1;
end;
for i:=2 to n do
begin
write('A[',i,']= '); readln(A[i]);
t:=t+A[i];
if A[i]>max then max:=A[i];
if A[i] mod 2=0 then
begin
tb:=tb+A[i];
d:=d+1;
end;
end;
writeln('a. Tong cac phan tu la: ',t);
writeln('Phan tu lon nhat la: ',max);
if d=0 then writeln('Khong co so chan de tinh trung binh')
else writeln('Trung binh cong cac so chan la: ',tb/d:2:2);
readln;
end.
