Question

se introduc 4 numere reale alcătuiți un program ce determină minimul dintre 2 numere

Answer 1

Minimum dintre doua numere:

var

 a,b:integer;

 min:integer;

begin

  writeln('Introduce-ti doua valori:');

  readln(a,b);

  if a<b then

  min:=a

   else

   min:=b;

  writeln('Minimum dintre a si b= ', min);

end.

Minimum din mai multe numere:

begin

 write('Introduce-ti un numar n (n>0): ');

 var n := ReadInteger;

 assert(n>0);

 

 write('Introduce-ti primul numar: ');

 var x :=ReadReal;

 var min := x;

 for var i := 2 to n do

 begin

   write('Introduceti ',i,',numar: ');

   x := ReadReal;

   if min > x then

     min :=x ;

 end;

 writeln('Minimum din numerele introduse: ', min);

end.