dikrudik2002
Var i,n,p,j:integer; z:array[1..100]of integer;beginreadln(n);for i:=1 to n do readln(z[i]);for i := 1 to n - 1 do for j := i + 1 to n do if z[i] > z[j] then begin p := z[i];z[i] := z[j];z[j] := p end; for i:= 1 to n do writeln(z[i]); end.
Answers & Comments