Uses crt;
Var A:array[1..10] of integer;
Tong,Tongle,Tongchan,i:integer;
Begin
Clrscr;
Tong:=0;
Tongchan:=0;
Tongle:=0;
For i:=1 to 10 do
Begin
Write('a[',i,'] : ');Readln(a[i]);
Tong:=Tong+a[i];
If a[i] mod 2 = 0 then
Tongchan:=Tongchan+a[i]
Else
Tongle:=Tongle+a[i];
Clrscr;
End;
Writeln('Tong cac phan tu : ',Tong);
Writeln('Tong cac phan tu le : ',Tongle);
Writeln('Tong cac phan tu chan : ',Tongchan);
End.
{ Có gì sai sót cho mình xin lỗi =) }