Tính tổng và đưa ra các số chẵn có trong mảng một chiều
Lượt xem:
90349
-
Ngày tạo: (17/01/2011)
Nhập 1 dãy gồm N số nguyên (N<=200). Đưa ra màn hình các số chẵn có trong dãy và tổng của chúng.
BÀI GIẢI
program tongchan;
var A: array[1..200] of integer ;
i, n, S: integer ;
begin
writeln(′ Nhap so luong phan tu: ′);
readln(n);
for i:=1 to n do
begin
writeln(′Nhap so thu: ′,i);
readln(A[i]);
end;
S:=0;
writeln(′Cac so chan trong day la: ′);
for i:=1 to n do
if (A[i] mod 2 = 0) then
begin
write(A[i]:6);
S:=S+A[i];
end;
writeln;
writeln(′Tong cac so chan la: ′, S);
readln
end.
File chương trình: Download