Bài 5. Từ bài toán đến chương trình

Hằng Võ Thanh

Viết chương trình nhập vào 1 mảng số nguyên có 15 phần tử. In ra màn hình những số chia hết cho 5 và tổng của chúng ?

Minh Lệ
4 tháng 5 2022 lúc 6:10

Program HOC24;

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

i: byte;

t: longint;

begin

for i:=1 to 15 do

begin

write('Nhap phan tu thu ',i,': '); readln(a[i]);

end;

t:=0;

write('Cac so chia het cho 5 la: ');

for i:=1 to 15 do if a[i] mod 5=0 then

begin

write(a[i].' ');

t:=t+a[i];

end;

writeln;

write('Tong cac so chia het cho 5 la: ',t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Yến Nhi Nhi
Xem chi tiết
My Nguyen
Xem chi tiết
Kim Phụng Nguyễn
Xem chi tiết
nguyen thao
Xem chi tiết
Danh Nhật Quang
Xem chi tiết
Ngáo Ngơ Alice
Xem chi tiết
khue tran
Xem chi tiết
Tuấn Kiệt Phạm
Xem chi tiết
Huyền Trang
Xem chi tiết