uses crt; var b:array[1..1000] of integer; m,i,S:integer; begin clrscr; write('Nhap so luong phan tu: '); readln(m); for i:=1 to m do begin write('Nhap phan tu thu ',i,': '); readln(b[i]); if b[i] mod 2 = 0 then S:=S+b[i]; end; write('Tong cac so chan la: ',S); readln end.
uses crt; var b:array[1..1000] of integer; m,i,S:integer; begin clrscr; write('Nhap so phan tu: '); readln(m); for i:=1 to m do begin write('Nhap phan tu thu ',i,': '); readln(b[i]); if b[i] mod 2=0 then S:=S+b[i]; end; write('Tong cac so chan cua mang la: ',S); readln; end.
