H24

viết chương trình nhập vào 1 dãy gồm n số(n được nhập vào từ bàn phím) tính tổng các số chẵn có trong dãy số vừa nhập

ML
3 tháng 5 2023 lúc 18:41

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chan la: ',t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
A8
Xem chi tiết
H24
Xem chi tiết
TT
Xem chi tiết
HT
Xem chi tiết
CL
Xem chi tiết
H24
Xem chi tiết
ML
Xem chi tiết
1N
Xem chi tiết
DL
Xem chi tiết