Question

Se considera tabloul A[1..n] de numere intregi,unde n<=100.
Sa se scrie un program care ordoneaza descrescator elementele acestui tablou.
PASCAL

Answer 1

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.