Question

Se dau 4 numere întregi. De afișat maximum. TurboPascal.

Answer 1

begin

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

 var n := ReadInteger;

 assert(n>0);

 

 write('Introduce-ti prima cifra: ');

 var x :=ReadReal;

 var max := x;

 for var i := 2 to n do

 begin

   write('Introduce-ti ',i,',cifra: ');

   x := ReadReal;

   if max < x then

     max := x;

 end;

 

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

end.