Bài 11: Kiểu mảng

NN

viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=200). Tính và in ra màn hình tổng số chẵn trong mảng

ML
15 tháng 5 2021 lúc 21:38

Program HOC24;

var i,n: integer;

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

t: longint;

begin

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

for i:=1 to n do

begin

write('a[',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 trong mang la: ',t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
NN
Xem chi tiết
NN
Xem chi tiết
NN
Xem chi tiết
NL
Xem chi tiết
KK
Xem chi tiết
NT
Xem chi tiết
NH
Xem chi tiết
NL
Xem chi tiết
H24
Xem chi tiết