ALGORITMO LPA

Algoritmo “AcidentesDeTransito”
Var
	localizacao: matriz[1..10, 1..29] de inteiros;
	perigosa: matriz[1..5, 1..3] de inteiros:
	rua: vetor[1..29] de caracteres;
	X, Y, Z, menor, menorPosicao, semAcidentes, consultaAvenida, consultaRua: inteiro;

Inicio
	semAcidentes → 0;

	Para X → 1 até 10 faça
		Para Y→ 1 até 29 faça
			Se (X = 1) então
				Escreva(“Digite o nome da rua: ”);
				Leia(rua[y]);
			fim-se

			Escreva(“Digite a quantidade de acidentes na intersecção da Av. “, x, “ com a rua “, rua[y], “: ”);
			Leia (localizacao[X, Y]);
		fim-para
	fim-para

Para Z → 1 até 5 faça
	perigosa[Z, 1] → 0;
fim-para

Para X → 1 até 10 faça
	Para Y→ 1 até 29 faça
		menor → 0;
		menorPosicao → 0;
		Para Z → 1 até 5 faça
			Se ((perigosa[Z, 1] < menor) ou (menor = 0)) então
				menor → perigosa[Z, 1];
				menorPosicao → Z;
			fim-se
		fim-para

		Se ((menor < localizaçao[X, Y]) ou  (menor = 0)) então
			perigosa[menorPosicao, 1] → localizaçao[X, Y];
			perigosa[menorPosicao, 2] → X;
			perigosa[menorPosicao, 3] → Y;
		fim-se
	fim-para
fim-para

Escreva(“As intersecções com mais acidentes são: ”);
Para Z → 1 até 5 faça
	Escreva(“Intersecção “, perigosa[Z, 2],”,”, perigosa[Z, 3],” com “, perigosa[Z, 1], “ acidentes. \n”);
fim-para


Escreva(“As intersecções sem acidentes são: ”);
Para X → 1 até 10 faça
	Para Y→ 1 até 29 faça
		Se (localizaçao[X, Y] = 0) então
			Escreva(“Intersecção: “,x,”,”,y,”. \n ”);
			semAcidentes++;
		fim-se
	fim-para
fim-para

Se (semAcidentes = 0) então
	Escreva(“Não existe intersecção sem acidentes.”);
fim-para

Escreva (“Digite o número da Avenida que deseja consultar: ”);
Leia(consultaAvenida);
Escreva (“Digite o número da Rua que deseja consultar:”);
Leia(consultaRua);

consultaRua → consultaRua - 29;

Se (((consultaAvenida >= 1) e (consultaAvenida <= 10)) e ((consultaRua >= 1) e (consultaAvenida <= 29))) Então
	Escreva(“Acidentes: “, localizacao[consultaAvenida , consultaRua], “.”);
Senão
	Escreva(“Dados inválidos”);
fim-se

fim-Algoritmo