1M

2. Cho mảng A gồm 10 phần tử thuộc kiểu nguyên. Viết chương trình tính tổng các số chân của mảng A

KL
28 tháng 4 2022 lúc 13:25

var a:array[1..10] of integer;

i,s:integer;

begin

for i:=1 to 10 do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

for i:=1 to 10 do

if a[i] mod 2 = 0 then s:=s+a[i];

write('Tong cac so chan la ',s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NN
Xem chi tiết
NH
Xem chi tiết
DN
Xem chi tiết
TD
Xem chi tiết
VN
Xem chi tiết
TK
Xem chi tiết
QT
Xem chi tiết
NH
Xem chi tiết
TN
Xem chi tiết
H24
Xem chi tiết