Răspuns :
Ti-as sfatui sa inveti metoda bulelor din internet sau daca o ai scrisa cumva in caiet, caci in viitor o sa-ti ajute tare.
const
MaxN=100;
var
a:array[1..MaxN] of integer;
i,j,n:byte;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do //Metoda bulelor
for j:=i+1 to n do
if(a[j]>a[i]) then
begin
a[j]+=a[i]; //Schimbare efectiva
a[i]:=a[j]-a[i];
a[j]-=a[i];
end;
for i:=1 to n do
write(a[i],' ');
end.
const
MaxN=100;
var
a:array[1..MaxN] of integer;
i,j,n:byte;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do //Metoda bulelor
for j:=i+1 to n do
if(a[j]>a[i]) then
begin
a[j]+=a[i]; //Schimbare efectiva
a[i]:=a[j]-a[i];
a[j]-=a[i];
end;
for i:=1 to n do
write(a[i],' ');
end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!