задача на массивы Опции

[саша]

в заданном двумерном массиве найти все пары повторяющихся чисел

[murphy]

Самый тривиальный вариант (можно оптимальнее):

Код

program p002;
const
  n=5;
  m=4;
type
  matrix = array[1..n,1..m] of integer;
var
  A: matrix;
  j, i, k, l: byte;
begin
  for i:= 1 to n do
   begin
    for j:= 1 to m do
      begin
        A[i,j]:=random(10)-20;
        write(A[i,j]);
      end;
    writeln;
   end;

   for i:=1 to n do
     for j:=1 to m do
        for k:=1 to n do
           for l:= 1 to m do
              if (A[i,j]=A[k,l]) and ((i<>k) and (j<>l)) then
                 writeln('A[', i , ',' , j ,'] = A[' , k , ',' , l ,'] = ', A[i,j]);
readln;
end.

вроде тестировал.
если что не так пусть меня поправят. :p2: