Câu 1 Nhập mạng a gồm n số nguyên (N<100) tính ra và tác của các số chẵn
1 câu trả lời
program sksk;
uses crt;
var a : array[1..100] of integer;
i, n, t : integer;
begin
clrscr;
write('nhap so luong phan tu trong mang :');readln(n);
t := 0;
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' :');readln(a[i]);
if a[i] mod 2 = 0 then t := t + a[i];
end;
writeln('tong phan tu chan la :', t);
readln
end.
