Estou tentando, à um bom tempo, produzir um código que identifique e relate ao usuário se existem elementos repetidos em uma matriz 5x5, composta por números aleatórios, no pascal. Já tentei pesquisar a matriz usando uma, ou duas, variáveis e também com uma matriz inteira para pesquisa, mas não deu certo. Ouvi falar, de algumas pessoas, que não é necessário um código muito grande, e nem muito complexo para a tarefa. Assim meu desespero aumenta.
Pergunto se alguém tem alguma solução para o problema
Link PasteBin para tentativa mal sucedida (e mais viajada)- https://pastebin.com/uzPLACXe
Código:
program Exercicio5;
var
Matr, same: array [1..5, 1..5] of real;
lin, col, linPesq, ColPesq:integer;
repete: boolean;
begin
randomize;
for lin:= 1 to 5 do
begin
writeln;
for col:= 1 to 5 do
begin
Matr[lin, col]:= random (1000);
same[lin,col]:= Matr[lin,col];
write(Matr[lin, col]:0:2, ' | ');
end;
end;
for LinPesq:= 1 to 5 do
begin
for ColPesq:= 1 to 5 do
begin
for lin:= 1 to 5 do
begin
for col:= 1 to 5 do
begin
if same[LinPesq,ColPesq] = Matr[lin, col] then
begin
if lin and col and LinPesq and ColPesq <> 1 then
begin
repete := true;
break;
end;
end;
end;
end;
end;
end;
writeln;
writeln;
if repete = true then
writeln('Ha elementos repetidos na matriz')
else
writeln('Nao ha elementos repetidos na matriz');
readln;
end.