uses crt; var a:array[1..100]of integer; i,n,t:integer; begin clrscr; write('n='); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; {------------------------------------------------------} t:=0; for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i]; writeln('tong cac so chan trong day so la: ',t); readln; end.
Program BTH; Uses crt; var a,b,d,e:longint; procedure BTH; Begin for d:=1 to a do Begin write('Nhap so thu ',d,' cua day: ');readln(e); If e mod 2=0 then b:=b+e; end; end; Begin clrscr; Write('Nhap so phan tu co trong day la: ');readln(a); b:=0; BTH; Writeln('Tong so chan co trong day la: ',b); readln; End.
