Valetine qua ảnh ns lm j,tui có thật lun 

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 =) }

lấy máy tính tính sẽ ra