Question

Fiind date de la tastatura un numar n si n numere intregi, se cere sa se gaseasca minimul dintre numerele citite .​

Answer 1

Răspuns:

begin

 write('Numar n (n>0): ');

 var n := ReadInteger;

 assert(n>0);

 write('Dati 1 cifra: ');

 var x :=ReadReal;

 var max := x;

 var min :=x;

 for var i := 2 to n do

 begin

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

 x := ReadReal;

 if max < x then

 max := x;

 if min>x then  

 min:=x;

 end;

 writeln('Maximum din cifrele introduse: ', max);

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

end.