Thị Kim Ngân Đỗ

Viết chương trình nhập vào dãy số nguyên ,sau đó tính tổng của các số chẵn trong dãy

Minh Lệ
12 tháng 5 2023 lúc 19:37

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); 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 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ự
Mai Phương Lê
Xem chi tiết
Ngáo Ngơ Alice
Xem chi tiết
Minh Duy
Xem chi tiết
Vochehoang
Xem chi tiết
Dương Quỳnh Chi
Xem chi tiết
ẩn danh
Xem chi tiết
Lê Nguyễn Ánh Nguyệt
Xem chi tiết
Đỗ Nguyễn Thùy Lâm
Xem chi tiết
Phúc Trí Nguyễn Lê
Xem chi tiết