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

Trần Nhật Phong

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!

Minh Lệ
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ự
Nguyễn Thành Hiệp
Xem chi tiết
Nguyễn Thị Hồng Ngọc
Xem chi tiết
Nguyễn Thị Hồng Ngọc
Xem chi tiết
Trần Nhật Phong
Xem chi tiết
Lê Thái Hưng Thịnh
Xem chi tiết
Trần Nhật Phong
Xem chi tiết
Dũng Phạm Tiến
Xem chi tiết
Trần Nhật Phong
Xem chi tiết
van hoan Dao
Xem chi tiết