uses crt;
var n,i,tonggt,tongpt,tongle,tongchan:integer;
a:array[1..250] of integer;
begin
write('nhap so phan tu cua day: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
begin
tonggt:=tonggt+a[i];
tongpt:=tongpt+i;
end;
for i:=1 to n do
if a[i] mod 2<>0 then tongle:=tongle+a[i]
else tongchan:=tongchan+a[i];
writeln('tong gia tri cua day la: ',tonggt);
writeln('tong gia tri phan tu cua day la: ',tongpt);
writeln('tong gia tri le la: ',tongle);
writeln('tong gia tri chan: ',tongchan);
readln;
end.
BÀI MÌNH CHƯA TEST BẠN TEST THỬ NẾU CÓ SAI NHẮN LẠI MÌNH SỬA.
