Program Pzim ;
{1. Faça um programa que armazene 5 nomes em um vetor.
Apos ser digitado um nome, se for encontrado no vetor
mostrar a posição desse nome no vetor, caso contrario
mostrar a mensagem: Não enconteri!.}
var
nome:array[1..5] of string; //variavel vetor para armazanar os nomes
i:integer; //contador
cons_nome:string; //variavel para receber o nome a ser consultado no vetor
Begin
for i:=1 to 5 do //cadastra os 5 nomes no vetor
begin
writeln('Digite o ',i,'o. nome : ');
readln(nome[i]);
clrscr; //limpa a tela
end;
writeln(' C O N S U L T A N O M E ');
writeln;
writeln('Digite um nome para consulta : '); //recebe o nome a ser consultadp
readln(cons_nome);
for i:=1 to 5 do
begin
if (nome[i]=cons_nome) then //se no vetor na posição i, o nome for igual a consulta de nome,
begin
writeln('O nome : ',cons_nome,', aparece na posição ',i);
end // mostra
else
begin
writeln('Nome não encontrado');
end;
end;
// se digitar o nome em mais de uma posição, ele mostra todos
End.
