program oken;
uses crt;
var a: array [1..100] of integer;
i,n,dem,tong:longint;
begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
dem:=0; tong:=0;
for i:=1 to n do
begin
write('A[',i,']: '); readln(a[i]);
if i mod 2=0 then
dem:=dem+1
else
tong:=tong+a[i];
end;
writeln('Co ',dem,' phan tu o vi tri chan');
writeln('Tong cac phan tu o vi tri le: ',tong);
readln;
end.