Question

6) Se citesc n numere de la tastatura sa se afiseze cele mai mari doua dintre ele.
Ex. n=5 numerele 1,2,3 ,3,5 se va afisa 5 si 3; nu folositi vectori !

Answer 1

Program MaxMax;
var
f, i ,a, n, max, premax: integer;
   
begin
 write ('n=');
 readln (n);
 writeln ('Introduceti ',n, ' numere:');
 readln (a);
   PreMax:=a; Max:=a;
 
for i:=2 to n do
      begin
      f:=1;
      readln (a);
      if a>=max then begin Premax:=Max; Max:=a; f:=0 end;
      if ((f=1) and (a>premax)) then Premax:=a;
     end;
 
if n<2 then writeln ('N/ati introdus destule numere.')
 else writeln ('Cele mai mari 2 numere sunt: ', Max, ' si ', PreMax);
      readln;
         end.