Cho một số nguyên dương n <= 12 và mảng A gồm N số nguyên. Tính tổng các số chẵn trong mảng A. + Dữ liệu vào lấy ở file text.int + Dữ liệu ra lấy ở file text.out
Cho một số nguyên dương n <= 12 và mảng A gồm N số nguyên. Tính tổng các số chẵn trong mảng A. + Dữ liệu vào lấy ở file text.int + Dữ liệu ra lấy ở file text.out
var f1, f2: text;
a: array[1..12] of integer;
i, n: byte;
tc: longint;
Begin
Assign(f1, ‘text.int’); reset(f1);
Assign(f2, ‘text.out’); rewrite(f2);
Readln(f1, n); tc:=0;
For i:=1 to n do
Begin
read(f1, a[i]);
If a[i] mod 2=0 then tc:=tc+a[i];
End;
Write(f2, tc);
Close(f1); close(f2);
End.
bài làm đây