selecao Algoritmo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program Pzim ;
 var
 i,j,m,aux,menor:integer;
 v:array [1..100] of integer;
 qtde:integer;
 
 
 procedure ler;
 var
 logico:text;
 fisico:string;
 numero:integer;
 begin
 i:=0;
 writeln('digite o caminho do arquivo fisico');
 readln(fisico);
 assign (logico,fisico);
 reset (logico);
 while not eof (logico) do
 begin
 	 readln (logico, numero);
 	 i:=i+1;
 	 v[i]:=numero;
 	 end;
 	close (logico);
 	qtde:=i;
 end;
 
 procedure ordena;
 begin
 for i:= 1 to qtde-1 do
 begin 
	menor:=v[i]; 	 	
 for j:= (i+1) to qtde do
 if v[j] < menor then
 begin
 	menor:=v[j];
 	aux:=v[i];
 	v[i]:=v[j];
 	v[j]:=aux;
 end;
 end; 
 end; 
 procedure altera;
 
 begin
 v[3]:= v[3]+2;
 v[5]:= v[5]-3;
 end;
 
 procedure imprime;
 begin
 	for i:= 1 to qtde do
 	write (' ',v[i]); 
 writeln('');	
 end;
 
begin
 ler;
 imprime;
 ordena;
 imprime;
 altera;
 imprime;
 ordena;
 imprime;
 End.