program Hello; uses crt; var n,i,j,m:integer; a:array[1..10000] of integer; begin read(n); for i:= 1 to n do read(a[i]); for i:=1 to n do for j:=i+1 to n do if a[i]<a[j] then begin m:=a[i]; a[i]:=a[j]; a[j]:=m; end; for i:=1 to n do write(a[i], ' '); end.
uses crt; var n,i,j,swap:longint; a:array[1..1000]of longint; begin clrscr; readln(n); for i:=1 to n do read(a[i]); for i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j] then begin swap:=a[i];a[i]:=a[j];a[j]:=swap; end; for i:=1 to n do write(a[i],' '); readln; readln; end.
