Question

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.

 

Answer 1

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.