👤
a fost răspuns

Salut, am nevoie de ajutor va rog.
Se considera trei numere intregi x,y si z scrie un program pascal utilizand o procedura care aranjeaza aceste numere in oridine crescatorare
va rog urgent.

Răspuns :

Răspuns:

program Ordonare3;

var x,y,z:integer;

procedure ordonare(var m,n,p:integer);

var t, ok:integer;  

begin

 ok:=0;

 while ok=0 do

   begin

     ok:=1;

     if (m>n) then begin t:=m; m:=n; n:=t; ok:=0; end;

     if (n>p) then begin t:=n; n:=p; p:=t; ok:=0; end;

   end;

end;

begin

 write('introdu 3 numere intregi: '); read(x,y,z);

 ordonare(x,y,z);

 writeln('Dupa ordonare crescator: ',x,' ',y,' ',z);

end.

Explicație:

Alte intrebari