👤

De la tastatura se introduce o secventa de minim 2 numere, ce se termina cu 0. Sa se scrie un program care afiseaza numarul mai mare. Programul trebuie facut in Pascal cu instrucțiunea FOR.

Răspuns :

program elementMaxim;

var num, max: integer;

begin

 write('introdu numere intregi. Stop este introducerea lui zero...');

 read(num);

 max:=num;

 while (num>0) do

   begin

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

     read(num);

   end;

 writeln('maximal este ', max);

end.