Viết chương trình nhập vào một dãy số nguyên A gồm n số (biết n được nhập từ bàn phím và n<=500) sau đó các số chia hết cho 5 có trong dãy số A đã nhập

thanhton159357

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

jackthekiller

Var n, i: word

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

begin

write('n = '); readln(n);

for i:=1 to n do

begin

write('a[', i, '] = '); readln(a[i]);

end;

writeln('Cac so chia het cho 5: ');

for i:=1 to n do

if a[i] mod 5=0 then write(a[i],' ');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

linhquangnguyen000

program bai_giai;
uses crt;
var A:array[1..500] of integer;
n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
for i:=1 to n do
if A[i] mod 5=0 then write(A[i],' ');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cho 0,1 mol 1 ancol phản ứng hoàn toàn vừa đủ với natri thu được 0,1 mol hidro và 10,6 g một sản phẩm hữu cơ Y. ancol đó là

Bài tập này khó quá, các bạn giúp mình với!

Giải chi tiết cho mình câu này với ạ.

Cho 2,44g hỗb hợp x gồm fe mg cu tác dụng với 200ml dd HCl. Thu được 784ml khí (đktc) và 0,96 g chất rắn không tan a) tính m mỗi kim loại b) tính thể túch dd HCl 0,5M tối thiểu cần dùng để tác dụng với k2cr2o7 tạo ra lượng Clo vừa đủ với hỗn hợp x

So sánh cách đánh giặc của Khúc Thừa Dụ vs Ngô Quyền có j giống và khác nha

Giúp tớ bài này với. Cảm ơn bạn!

Bài tập này khó quá, các bạn giúp mình với!

Câu 1: Tây sơn đánh bại 5 vạn quân xiêm như thế nào ? Nguyên nhân thắng lợi của phong trào tây sơn Câu 2: Em hãy nêu và đánh giá công lao của vua Quang Trung đối với dân tộc Giúp tớ giải bài tập này được không?

Giúp tớ bài này với. Cảm ơn bạn!

Giúp tớ giải bài tập này được không?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến