Cấu trúc rẽ nhánh và lặp

TP

Vct nhập số n,tính tổng các phần tử lớn hơn 50 và chia hết cho 10!

ML
12 tháng 8 2020 lúc 21:05

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..32000] of integer;

begin

write('Nhap n : '); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do if (a[i]>50) and (a[i] mod 10=0) then t:=t+a[i];

write('Tong cac phan tu lon hon 50 va chia het cho 10 la : ',t);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
NH
Xem chi tiết
NN
Xem chi tiết
NN
Xem chi tiết
TP
Xem chi tiết
LT
Xem chi tiết
TP
Xem chi tiết
DT
Xem chi tiết
TP
Xem chi tiết
VD
Xem chi tiết