Các bạn giúp mình nha : Nhập vào 1 dãy gồm n số nguyên dương biết rằng n không vượt quá 200 và giá trị phần tử không vượt quá 500 . In mảng vừa nhập và tính tổng các phần tử chia hết cho 5 và cho biết có bao nhiêu phần tử chia hết cho 5

trandinhthe2007

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 27 xem

1 trả lời

Thích Trả lời

st.minato06

program baigiai;

uses crt;

var A:array[1..200] of integer;

n,i,d:byte;

t,t2:integer;

begin

clrscr;

write('Nhap so luong phan tu n: '); readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

t:=0; t2:=0; d:=0;

for i:=1 to n do

begin

write('A[',i,']= ');

readln(A[i]);

t:=t+A[i];

if A[i] mod 5=0 then

begin

d:=d+1;

t2:=t2+A[i];

end;

write('Day vua nhap la: ');

for i:=1 to n do

write(A[i],' ');

writeln;

writeln('Tong cac phan tu cua day la: ',t);

writeln('Co ',d,' phan tu chia het cho 5 va tong cua chung la: ',t2);

readln

end.

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

hiepa2badinh

program ct;

uses crt;

var i,n,S,d:integer;

A:array[1..200] of integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang A[',i,']='); readln(A[i]);

end;

write('day so vua nhap la');

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

writeln;

S:=0; d:=0;

for i:=1 to n do

begin

if (A[i] mod 5=0) then

begin

S:=S+A[i];

d:=d+1;

end;

writeln('tong cac phan tu chia het cho 5 la',S);

writeln('co',d,' so chia het cho 5');

readln

end.

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

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

Sưu tầm những câu danh ngôn tục ngữ câu thơ nói về 2 phẩm chất liêm khiết và tôn trọng lẽ phải trong những câu sưu tầm em thích câu nào nhất vì sao

Cho 3 số thực dương a,b,c và P = a/(b+c) + b/(a+c) + c/(a+b) . Gọi M là GTNN của P. Khi đó m thuộc khoảng nào dưới đây ? (Giải rõ cách làm hộ mik vs ạ mik cảm ơn hứa vote 5s + ctlhn) A (3;4) B (0;1) C (1;2) D (2;3)

Cho 16,2 gam kim loại R (chưa rõ hóa trị) tác dụng với 0,15 mol khí O2. Chất rắn thu được sau phản ứng đem hòa tan vào dung dịch HCl dư thấy thoát ra 13.44 lít khí H2 ở đktc. Xác định R?

nêu rõ chính sách cai trị của triều đại phong kiến phương bác đối với nc ta từ thế kỉ 2 tcn đến thế kỉ 9

tìm giá trị nhỏ nhất của : A= $\frac{-2a^{2}-2a+4}{a^{2}}$

viết bài văn giới thiệu một tác phẩm nghệ thuật (phim ảnh,bài hát) làm em cảm động. Qua tác phẩm ấy, em muốn truyền đến mọi người thông điệp gì?

Đề: Có ý kiến cho rằng: ' Học sinh thời hội nhập phải biết uống rượu bia để có thể giao tiếp'. Anh(chị) hãy viết 1 bài văn phản bác ý kiến trên. Giúp mình với mình cần gấp.

Dẫn 5,6 lít khí (đktc) hỗn hợp hai olefin qua bình chứa brom dư thấy khối lượng tăng 11,9 gam .Số nguyên tử C trung bình của hai olefin đó là

25.The children are walking to school now. -> 26.How about going camping this weekend? -> 27.We can't walk there.It's very far -> 28.Let's play the volleyball tomorrow afternoon -> 29.My anut's baby will be born in September. -> 30.I intend to visit Mui Ne this summer ->

Hai xí nghiệp theo kế hoạch phải làm tổng cộng 360 dụng cụ.Trên thực tế xí nghiệp 1 vượt mức 12%,xí nghiệp 2 vượt mức 10% do đó cả hai xí nghiệp làm tổng cộng 400 dụng cụ.Tính số dụng cụ mỗi xí nghiệp phải làm

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