From owner-freebsd-questions  Tue Sep 26 10:42: 7 2000
Delivered-To: freebsd-questions@freebsd.org
Received: from lacom14.del.ufrj.br (lacom14.del.ufrj.br [146.164.70.44])
	by hub.freebsd.org (Postfix) with ESMTP id AB39237B422
	for <questions@freebsd.org>; Tue, 26 Sep 2000 10:42:01 -0700 (PDT)
Received: (from gomes@localhost)
	by lacom14.del.ufrj.br (8.9.3/8.9.3) id OAA01258
	for questions@freebsd.org; Tue, 26 Sep 2000 14:05:20 GMT
	(envelope-from gomes)
Date: Tue, 26 Sep 2000 14:05:20 GMT
From: Roberto Gomes Goncalves <gomes@lacom14.del.ufrj.br>
Message-Id: <200009261405.OAA01258@lacom14.del.ufrj.br>
To: questions@freebsd.org
Sender: owner-freebsd-questions@FreeBSD.ORG
Precedence: bulk
X-Loop: FreeBSD.ORG

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