Đề bài:
Viết chương trình nhập vào một dãy số nguyên gồm n phần tử. In ra màn hình các phần tử chẵn và tính tổng của các phần tử chẵn đó.
Yêu cầu:
Viết chương trình tối ưu nhất, dùng ít lệnh nhất
uses crt; var i,n,s:integer; a:array[1..1000000]of integer; begin clrscr; readln(n); for i:=1 to n do read(a[i]); writeln('Cac so chan: '); for i:=1 to n do if a[i] mod 2=0 then begin writeln(a[i]); s:=s+a[i]; end; writeln('Tong: ',s); readln end.
var A: array[1..500] of integer; n, s, i: integer; begin readln(n); for i:=1 to n do readln(A[i]); for i:=1 to n do if A[i] mod 2 = 0 then begin writeln(A[i]:3); s:=s+A[i]; end; write('Tong chan: ', s); readln end.