Mohlo by to byt takto, pripadne si este zmen nazvy premennych podla toho, ako ich mas v tom diagrame...
Kód:
program noff;
const
velkost=1000;
var
N, i, j, pom:integer;
pole: array[1..velkost] of integer;
begin
readln(N);
for I:=1 to N do //citanie prvkov pola
read(pole[I]);
readln;
for I:=1 to N-1 do //usporiadanie pola
for J:=I to N do
if pole[I]>pole[J] then
begin
pom:=pole[I];
pole[I]:=pole[J];
pole[J]:=pom;
end;
for I:=1 to N do //vypis uspoiadaneho pola
writeln(pole[I]);
readln;
end.