4405

wczytaj(a);

writelnfprzed sortowaniem:'); wyswietl(a); ok:=sprawdz(a,roz); writeln('posortowana? ->',ok); writeln;

Writelnfpo sortowaniu'); sort_b(a,roz); wyświetl (a);

writelnCposortowana? ->',sprawdz(a,roz));

readln;

end.

program sortb; uses crt; const roz=5; type

tab=array[0..roz] of integer; var a:tab; kinteger; ok :boolean;

procedurę wczytaj(var a:tab);

begin

a[0]: = 6;

a[l]:=9;

a[2]:=2;

a[3]:=3;

a[4]:=9;

a[5]:=4;

end;

procedurę wyswietl(a:tab); begin

l:=0;

for i:=0 to roz do begin write(a[i]);

if i<roz then write(','); end; writeln; end;

function sprawdz(a:tab;n:integer):boolean; begin

for i:=0 to n-1 do if a[i]<=a[i+l] then sprawdz:=true else

sprawdz:=false;

end;

procedurę zamien(var x,y:integer);

Var pom:integer;

Begin

Pom:=x; x:=y; y:=pom; end;