двумерный массив в Delphi

[Loslobos]

Помогите плиз в решении такой задачки!!!
Дан массив a:array[1..2,1..15] of integer.Известно, что среди его элементов дваи только два равны между собой.Напечатайте их индексы.
не тените пожалуйсто с ответом это очень важно для меня)
зарание примного благодарен!!!

[Serge_Bliznykov]

банальный перебор.
в цикле берём элемент массива и ищём совпадающий в текущей строке (до конца строки) и по оставшимся строками - с первого столбца до последенего.
Нашли совпадение - печать индексов и выход.

не пойму, что здесь сложного.

А сами Вы что сделали? Если хотите, чтобы решили полностью за Вас - милости прошу во Фриланс!

[Loslobos]

если я делаю через Делфи то лучше использовать ConsoleAplication?

[Serge_Bliznykov]

если я делаю через Делфи то лучше использовать ConsoleAplication?

абсолютно неважно!
Как Вам удобнее, так и делайте. В данном случае это повлияет только на интерфейс программы, а к нему требований жёстких нет. Так что - выбирайте, что лучше для Вас.

[Loslobos]

вот моя ересь)посмотри плиззз и исправь я думаю там есь куча ошибок)
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure StringGrid1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const n=2;
m=15;

var
Form1: TForm1;
a:array[1..n,1..m] of integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var f,b,c,d,i,j,p,q:byte;
begin
randomize;
//создадим таблицу 2х15 с фиксированными ячейками
Stringgrid1.ColCount:=m+1;
Stringgrid1.RowCount:=n+1;
for i:=1 to n do
Stringgrid1.Cells[0,i]:=Inttostr(i);
for i:=1 to m do
Stringgrid1.Cells[i,0]:=Inttostr(i);
//заполним матрицу разными числами
for i:=1 to n do
for j:=1 to m do
a[i,j]:=m*i+j; //от 16 до 42
//выберем 2 случайных ячейки
f:=random(n)+1;
b:=random(m)+1;
a[f,b]:=50; //запищим в них число,которого еще нет
repeat
c:=random(n)+1;
d:=random(m)+1;
until(c<>f)or(d<>b);
a[c,d]:=a[f,b];
//заполним таблицу
for i:=1 to n do
for j:=1 to m do
Stringgrid1.Cells[j,i]:=Inttostr(a[i,j]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,j,p,q:byte;
begin
//пройдем 2 раза по матрице сравнивая разные ячейки
for i:=1 to n do
for j:=1 to m do
for p:=1 to n do
for q:=1 to m do
if(a[i,j]=a[p,q])and((p<>i)or(q<>j)) then //найдем одинаковые
Edit1.Text:='1 - ['+inttostr(p)+','+inttostr(q)+'] 2 - ['+
inttostr(i)+','+inttostr(j)+']';
end;

end.