Bài 7. Câu lênh lặp

Ngọc Hương

Nhập một dãy n phần tử, hãy tính tích của chúng. Nếu tích dương thì tính trung bình nhân của dãy đó.
[ cảm ơn trước ạ! ]

Nguyễn Lê Phước Thịnh
23 tháng 11 2019 lúc 17:49

uses crt;

var n,i:integer;

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

s,tbn:longint;

kq:real;

begin

clrscr;

write('nhap chieu dai day so:'); readln(n);

for i:=1 to n do

begin

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

end;

{---------------------------xu-ly------------------------------}

s:=1;

for i:=1 to n do

s:=s*a[i];

if s>0 then

begin

tbn:=1;

for i:=1 to n do

tbn:=tbn*a[i];

kq:=exp((1/n)*ln(tbn));

end;

writeln('tich cua day la: ',s);

writeln('trung binh nhan cua day la: ',kq:4:2);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Ngọc Nguyễn
Xem chi tiết
Huệ anh •01•86
Xem chi tiết
Đạt Nguyễn
Xem chi tiết
Lily
Xem chi tiết
Ngọc Hương
Xem chi tiết
quang
Xem chi tiết
Gia Kỳ
Xem chi tiết
Lê Kiều Ngân
Xem chi tiết
Trần Đức Huy
Xem chi tiết