Очень срочно 2 задачки на делфи...

[Alex21]

По моему вот так ищутся одинаковые элементы:

const
N=5;
M=7;

var  a:array[1..N,1..M]of real;
     i1,i2,i3,i4:integer;

begin
 { TODO -oUser -cConsole Main : Insert code here }  
  Randomize;
{создание массива Random()}
  for i1:=1 to N do
  begin
    for i2:=1 to M do
      begin
        a[i1,i2]:=Random(100);
{и вывод его на экран}
        write(a[i1,i2]:2:0,'  ');
      end;
  writeln;
  end;
{перебор всех значений}
  for i1:=1 to N-1 do
  begin
    for i2:=1 to M-1 do
    begin
      for i3:=i1+1 to N do
      begin
        for i4:=i2+1 to M do
        begin
          if a[i1,i2]=a[i3,i4] then
{ здесь делаем то, что надо делать при
нахождении одинаковых элементов. Сейчас они просто выводятся на экран}
            writeln( a[i1,i2]:2:0,'  ',a[i3,i4]:2:0);
        end;
      end;
    end;
  end;
  readln;
end.

[Milky-way]

Спасибки огромные!!! Ты меня прямо спас! =)
А коментарии можно если не трудно ато я чтото собсем не врубаюсь в этот код...

[Alex21]

4 цикла:
i1 - по вертикали
i2 - по горизонтали
i3 - по вертикали, за исключением тех, что уже проверили
i4 - по горизонтали, за исключением тех, что уже проверили

Вместо вывода (writeln) можно присваивать bool переменную и выходить из цикла, если нашли - это согласно заданию.