H24

Nhập vào từ bàn phím 1 dãy A gồm n số nguyên. Tính và đưa ra màn hình tổng của tất cả các số nguyên chia hết cho cả 2 và 5 có mặt trong dãy A.

NT
4 tháng 5 2024 lúc 8:50

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do

if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];

write(t);

readln;

end.

Bình luận (1)

Các câu hỏi tương tự
LB
Xem chi tiết
LN
Xem chi tiết
H24
Xem chi tiết
DH
Xem chi tiết
TP
Xem chi tiết
TT
Xem chi tiết
TS
Xem chi tiết
TL
Xem chi tiết
NH
Xem chi tiết
NT
Xem chi tiết