TD

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

ML
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ự
ML
Xem chi tiết
NA
Xem chi tiết
MD
Xem chi tiết
H24
Xem chi tiết
DC
Xem chi tiết
AD
Xem chi tiết
LN
Xem chi tiết
DL
Xem chi tiết
PL
Xem chi tiết