fork download
copy 
  1.  
  2. var
  3.  n,i,j: integer;
  4.  s: array [1..250] of string;
  5.  password,st: string;
  6. begin
  7.  
  8.  readln(n);
  9.  for i:=1 to n do readln(s[i]);
  10.  
  11.  for i:=1 to n do
  12.  for j:=i to n do
  13.  if s[j] > s[i] then
  14.  begin
  15.   st:='';
  16.   st:=st+s[j];
  17.   s[j]:='';
  18.   s[j]:=s[j]+s[i];
  19.   s[i]:='';
  20.   s[i]:=s[i]+st;
  21.  end;
  22.  
  23.  for i:=1 to n do password:=password+s[i];
  24.  write(password);
  25. end.
  26.  
Success #stdin #stdout 0s 292KB
comments (?)
stdin
copy 
4
10000
9
1000001
3
stdout
copy 
93100000110000
https://ideone.com/nJ8Weg
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!