Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Kim Trí

Viết chương trình nhập N  số thực vào từ bàn phím, in ra màn hình giá trị nhỏ nhất và tích các giá trị của N số đã nhập vào.

 

Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 22:41

uses crt;

var x,s,min:real;

i,n:integer;

begin

clrscr;

readln(n);

min:=-32000;

s:=1;

for i:=1 to n do 

begin

readln(x);

if min>x then min:=x;

s:=s*x;

end;

writeln('Nho nhat la: ',min:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.


Các câu hỏi tương tự
Tuoi tom May
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Uchiha Obito
Xem chi tiết
Trần Minh Trí
Xem chi tiết
Nguyenthanh
Xem chi tiết
vy tường
Xem chi tiết
Ánh sao
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
MinhAnh Vũ
Xem chi tiết