program chuongtrinh;

uses crt;

var chan, le, i,dem1, dem2 :integer;

a:array [1 .. 1000 ] of integer;

begin

write (' Nhap gia tri n = ');

readln (n);

for i:=1 to n do

begin

write ('a[',i,']= ');

readln (a[i]);

end;

chan:= 0;

dem1:=0;

dem2:=0;

le:= 0;

for i:=1 to n do if i mod 2 = 0 then

begin

dem1:=dem1+1;

chan:=chan+a[i];

end;

for i:=1 to n do if i mod 2 <> 0 then

begin

dem2:=dem2+1;

le:=le+a[i];

end;

writeln (' Tong chan la: ',chan);

writeln (' So phan tu chan trong mang la: ',dem1);

writeln (' Tong le la: ',le);

writeln (' So phan tu le trong mang la: ', dem2);

readln