Question

se considera o secvență de N numere reale introduse de la tastatura ,Sa se determine cel mai mare numar introdus.cu ajutorul instructiunii for va rog frumos ajutati-ma​

Answer 1

program nummax;

var n, i: integer;

   num, maximal:real;

begin

 write('n= '); read(n);

 writeln(' introdu ', n,' numere reale: ');

 read(num);

 maximal:=num;

 for i:=2 to n do

   begin

     read(num);

     if (num>maximal) then maximal:=num;

   end;

 writeln(' cel mai mare este ', maximal);

end.