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

HT

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 ?

ML
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ự
YN
Xem chi tiết
MN
Xem chi tiết
KN
Xem chi tiết
NT
Xem chi tiết
DQ
Xem chi tiết
NA
Xem chi tiết
KT
Xem chi tiết
TP
Xem chi tiết
HT
Xem chi tiết