Ngọc Nguyễn

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

Minh Lệ
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ự
tâm minh
Xem chi tiết
Nguyễn văn thanh
Xem chi tiết
Nguyên Đăng
Xem chi tiết
Eni Lin
Xem chi tiết
1. Ánh
Xem chi tiết
Tran dang khoa
Xem chi tiết
Ske Bình
Xem chi tiết
Thảo Nguyễn
Xem chi tiết
Draco
Xem chi tiết