Uses Crt; Var a:array[1..1000] of integer; i,n,tsc:integer; Begin Clrscr; Write(' Nhap so ptu N = '); Readln(n); Writeln; For i:=1 to n do Begin Write(' Nhap a[',i,'] = '); Readln(a[i]); End; tsc:=0; WRITE('Day so da nhap tren la: '); For i:= 1 to n do Write(a[i]:5); Writeln; WRITE('Cac so chan trong day tren la: '); For i:=1 to n do Begin If a[i] mod 2 = 0 then Begin write(a[i]:5); tsc:=tsc+a[i]; End; End; Writeln; Write('Tong cac so chan trong day tren la: ',tsc); Readln End.
