+Nếu a[i] mod 2=0 (phần tử thứ i là số chẵn) thì tăng tổng lên tong+a[i];
-Xuất tổng là xong! :)))
Bài làm xắp xếp:
Uses crt; Var a,b,c,t:longint; Begin Clrscr; write('Nhap a,b,c: ');readln(a,b,c); if a>b then begin t:=a; a:=b; b:=t; end; if a>c then begin t:=a; a:=c; c:=t; end; if b>c then begin t:=b; b:=c; c:=t; end; writeln(a,' ',b,' ',c); Readln; End.
