Viết chương trình cho phép nhập vào dãy số nguyên gồm n phần tử (1<=n<=100) a) Tính trung bình cộng của các phần tử lớn hơn 0 có trong dãy số ( kết quả làm tròn hai chữ số thập phân). b) In ra màn hình các số nguyên tố có trong dãy trên

hongphuong193

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

logaa412

Program bai;

Uses crt;

Var a,b:array[1..101] of integer;

D,d1,s,i,j:integer;

Kt:boolean;

Begin

Readln(n);

D:=0;d1:=0;s:=0;

For i:=1 to n do

Begin

Readln(a[i]);

If a[i]>0 then begin d:=d+1;s:=s+a[i];end;

If A[i]<2 then kt:=false

Else

Begin

Kt:=true;

For j:=2 to a[i] div 2 do

If a[i] mod i=0 then

Begin

Kt:=false;

Break;

End;

If kt=true then

Begin

D1:=d1+1;

B[d1]:=a[i];

End;

Writeln(' trung binh cong cac so lon hon 0 la ',s/d:3:2);

Writeln(' cac so nguyen to la ');

For i:=1 to d1 do

Write(b[i],' ');

Readln

End.

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

hoang19399

Program viet_chuong_trinh;

Uses crt;

Var a,b: array[1..101] of integer;

D,d1,s,i,j:integer;

Kt:boolean;

Begin

Readln(n);

D:=0;d1:=0;s:=0;

For i:=1 to n do

Begin

Readln(a[i]);

If a[i]>0 then begin d:=d+1;s:=s+a[i];end;

If A[i]<2 then kt:=false

Else

Begin

Kt:=true;

For j:=2 to a[i] div 2 do

If a[i] mod i=0 then

Begin

Kt:=false;

Break;

End;

If kt=true then

Begin

D1:=d1+1;

B[d1]:=a[i];

End;

Writeln(' trung binh cong cac so lon hon 0 la ',s/d:3:2);

Writeln(' cac so nguyen to la ');

For i:=1 to d1 do

Write(b[i],' ');

Readln

End.

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

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

giúp với các bạn ơi cần gấp trong hnay thôi,cảm ơn trc nhé

Ai giải hộ tui ik tui cần gấp lắm cảm ơn mn nha

Câu 7:Các chất được vận chuyển từ ruột non về tim theo các con đường: A. Mạch bạch huyết và mao mạch máu (qua gan) B. Tĩnh mạch và các động mạch C. Mạch bạch huyết và mao mạch phổi D. Mạch bạch huyết và các động mạch chủ dưới Câu 3: Xương có tính đàn hồi và rắn chắc là vì: A. Xương có cấu trúc hình ống B. Trong xương có tủy xương C. Xương có chất hữu cơ và chất vô cơ D. Xương có mô xương cứng, mô xương xốp Câu 2: Xương to ra là nhờsựphân chia tế bào ở bộ phận nào? A. Sụn tăng trưởng B. Mô xương xốp C. Mô xương cứng D. Màng xương. Không chọn bừa nha :v

Vẽ cho mình cung Xử Nữ anime có màu nhé

Mn giúp em với hiện h em đang cần gấp

tại sao nghành công nghiệp sản xuất hàng tiêu dùng lại phát triển mạnh ở nước ta? xin mời cao nhận ĐỊA GIẢI hộ em vì mai em nộp bài ạ!❤️

trong chuyện cổ tích e đã gặp nhiều nhân vật , hãy kể và tả nhân vật e thích nhất

Đại hội Đảng lần đầu tiên được tổ chức tại Hà Nội là A: Đại hội Đảng lần thứ IV (1976). B: Đại hội Đảng lần thứ II (1951). C: Đại hội Đảng lần thứ III (1960). D: Đại hội Đảng lần thứ V (1981).

Ông A vay ngân hàng 200 triệu đồng để phát triển kinh doanh của gia đình với thời hạn 1 năm. Đến cuối năm do việc kinh doanh không tốt nên ông A đã đến ngân hàng gia hạng thêm 1 năm và ngân hàng đồng ý cho ông gia hạn thêm 1 năm nữa nhưng với lãi suất tăng thêm 2,5% /năm. Ở năm thứ 2 đồng thời tiền lãi được cộng vào tiền gốc xem như tiền gốc mới để tính lãi năm sau. Cuối năm sau ông A phải trả cả gốc lẫn lãi là 238,68 triệu đồng. Hỏi ngân hàng cho ông A vay với lãi suất bao nhiêu phần trăm trên năm

Vẽ cho mk 3 cây katana khác nhau thật đẹp nha(Nghiêm cấm copy)

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