NN

Cho danh sách a gồm n phần tử có kiểu Nguyên viết chương trình nhập các phần tử của danh sách tính và đưa ra màn hình tổng các số là bội của 3 có trong danh sách

ML
9 tháng 3 2023 lúc 23:32

Program HOC24;

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

i,n : integer;

t: longint;

begin

write('Nhap N: '); realdn(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 3 = 0 then t:=t+a[i];

write('Tong cac so la boi cua 3 trong danh sach la: ',t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
TM
Xem chi tiết
NT
Xem chi tiết
ND
Xem chi tiết
EL
Xem chi tiết
1A
Xem chi tiết
TK
Xem chi tiết
SB
Xem chi tiết
TN
Xem chi tiết
H24
Xem chi tiết