👤
a fost răspuns

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 !

Răspuns :

ANGELICUSVIZ
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.
Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!


Viz Lesson: Alte intrebari