Выбор из двузначных чисел, Задача Опции

[Саня]

Такая задача: "Выбор из двузначных чисел". Даны n (n>=12) различных двузначных чисел. Написать программу выбора из них двух чисел так, чтобы их разность давала двузначное число, записываемое двумя одинаковыми числами.

У меня ни как не получаеться Может у кого нибудь получится....

[volvo]

Oleg_Z

Вместо:

Код

var
...
arr: array[1 .. maxN] of byte;

...

repeat  
writeln('Vvedite kolichestvo elementov');
readln(n) { допустим, ввели 10 }
until n<=MaxN;
...
{ использование 10 элементов arr (остальные 90 не используются) }

я бы сделал так:

Код

type
 arrType = array[1 .. 1] of integer;
var
 arr: ^arrType;

...

repeat  
writeln('Vvedite kolichestvo elementov');
readln(n) { допустим, ввели 10 }
until n<=MaxN;
GetMem( arr, n*sizeof(integer));

{ и продоллжаем работать с arr^[i] вместо arr[i] }
...
FreeMem( arr, n*sizeof(integer));