gabriellberaldi

Olá Simon, dei uma reformulada no programa mas ele ainda não está da maneira esperada: Program vet ; var A: array [1..10] of integer; ii,j,qntd:integer; Begin for ii:=1 to 10 do begin witeln ('Digite o valor da posição ',ii,' do vetor'); readln (A[ii]); end; for ii:=1 to 10 do begin qntd:=0; for j:=1 to 10 do begin if (A[ii]=A[j]) then qntd:=qntd+1; end; if (qntd>1) then begin writeln ('O número ', A[ii],' aparece ', qntd, ' vezes.'); end; end; readln; End. Se eu digito o vetor [1,2,2,1,3,4,5,6,7,2], por exemplo, aparece: "O número 1 aparece 2 vezes. O número 2 aparece 3 vezes. O número 2 aparece 3 vezes. O número 1 aparece 2 vezes. O número 2 aparece 3 vezes." Já fiquei muito tempo pensando e sempre chego na ideia de colocar uma qntd2 pra contar quantas vezes aparece a mensagem pra cada número, e um "if qntd2<2" pra ele escrever a mensagem... Mas isso não dá certo porque toda vez que começa o primeiro "for", a qntd2 é zerada (se não for, só aparece o primeiro número que for repetido). Você poderia, por favor, falar como arrumo isso? Ou pelo menos dar uma luz (bem forte kk) pra como resolver? Estou precisando desse exercício pra um trabalho urgentemente! Obrigado.

@Simon Viegas Olá Não sabia da questão do itálico, nem do botão de code, obrigado! Então, infelizmente o único jeito de fazer que pensei foi esse, lendo todo o vetor primeiro e depois analisando cada um dos valores se eram iguais à outros de outras posições, era como eu faria a mão, meio automático... Provavelmente é uma coisa bem obvia, mas não consigo pensar em mais nada, o meu curso não é voltado pra programação (porém tenho uma matéria semestral disso kk). Ficaria agradecido com sua ajuda!

Faça um programa em Pascal que leia um vetor A de dez posições contendo números inteiros. Determine e mostre, a seguir, quais elementos de A estão repetidos e quantas vezes cada um se repete. Exemplo: caso, se repitam os valor 5 (2x) e 18 (3x), o programa deverá mostrar ao final as seguintes informações: "O número 5 aparece duas vezes; O número 18 aparece três vezes;" Eu tentei fazer desse jeito: Program vet ; var A: array [1..10] of integer; i,j,qntd:integer; Begin for i:=1 to 10 do begin writeln ('Digite o valor da posição ',i,' do vetor'); readln (A); end; for i:=1 to 10 do begin qntd:=0; for j:=1 to 10 do begin if (A=A[j]) then qntd:=qntd+1; end; writeln ('O número ', A,' aparece ', qntd, ' vezes.'); end; readln; End. Só que se eu digito (por exemplo) o vetor [1,2,2,1,3,4,5,6,7,8], ele aparece "O número 1 aparece 2 vezes O número 2 aparece 2 vezes O número 2 aparece 2 vezes O número 1 aparece 2 vezes O número 3 aparece 1 vezes ..." Eu sei porque ele faz isso, mas não sei arrumar :/ Agradeço a ajuda desde já!