pastebin

Paste Search Dynamic
Recent pastes
program minhvicute3
  1. program minhvicute3;
  2. var a:array[1..100] of integer;
  3.         i, n, s, j ,tg:integer;
  4. begin
  5.         readln(n);
  6.         for i:=1 to n do readln(a[i]);
  7.         for i:=1 to n-1 do
  8.                 for j:=i+1 to n do
  9.                 begin
  10.                         if (a[i]>a[j]) then
  11.                         begin
  12.                                 tg:=a[i];
  13.                                 a[i]:=a[j];
  14.                                 a[j]:=tg;
  15.                         end;
  16.                 end;
  17.         for i:=1 to n do writeln(a[i]);
  18. end.
Parsed in 0.003 seconds