Sandro Rodrigues_367994

Não sei se seria o mais certo, no momento faria assim. Program Pzim ;varv:array[1..1000] of integer;t,q,n,p,cont,ax,m,i,b,j,vCount,pt,ax1,c:integer;esta:integer;Begin ClrScr; esta:=0; c:=1; m:=0; pt:=1; vCount := 1; //variavel do contador do vetor cont:=1; ax:=75; ax1:=2; writeln('Informe o tamanho da Ferrovia'); readln(t); writeln('Informe a quantidade de parada'); readln(q); p:=t div 75+1; for i:=1 to q do begin writeln('Informe o numero da parada'); readln(v[i]); end; for i:=1 to q do//Ordenar o vetor em ordem crescente. begin for j:=1 to q do begin if(v[j] > v[i])then begin b:=v[i]; v[i]:=v[j]; v[j]:=b; end; end; end; writeln(''); writeln('A rua ferrovia ',p,' paradas'); Writeln(''); for i:=1 to p do //Comparar o valor do vetor com as paradas begin while(cont < p+1)do begin if(i=c)and(v[vCount]>ax)then begin writeln('Parada ',pt,' (',m,' metros - Parada Normal '); esta:=1; end else if(m mod 225=0)and(esta<>1)then begin writeln('Parada ',pt,' (',m,' metros - Parada Normal '); esta:=1; end else if(v[vCount]>ax1)and(v[vCount]<ax)and(esta<>1)then begin writeln('Parada ',pt,' (',m,' metros - Parada correio '); vCount := vCount + 1; esta:=1; end; if(esta=0)then begin writeln('Parada ',pt,' (',m,' metros - Sem parada '); end; esta:=0; c:=4; ax:=ax+75; ax1:=ax1+73; m:=m+75; pt:=pt+1; cont:=cont+1; end; end;end.