Skip site navigation (1)Skip section navigation (2) 
Date:      Tue, 26 Sep 2000 14:05:20 GMT
From:      Roberto Gomes Goncalves <gomes@lacom14.del.ufrj.br>
To:        questions@freebsd.org
Message-ID:  <200009261405.OAA01258@lacom14.del.ufrj.br>
next in thread | raw e-mail | index | archive | help 

program ordem;

var
	matris:array[1..10] of integer;
	z,n,i,aux,:integer;
begin

	z:=1;
	writeln('digite os 10 ns '); 
	repeat
	readln(matris[z]);
	inc(z);
	until z=11;
	   	
	for n:=10 downto 2 do begin
		for i:=1 to n-1  do begin
			if matris[i]>matris[i + 1] then
			begin
			aux:=matris[i];
			matris[i]:=matris[i+1];
			matris[i+1]:=aux;
			ordem:=false;
			end;	
		end;
	end;
for i:=1 to 10 do write(' ' ,matris[i],' ')
end.


To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-questions" in the body of the message

Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200009261405.OAA01258>