Pascal. Поиск числа, наиболее отличающегося от заданного

[sanji2010]

Задана матрица. Вывести на экран индекс того элемента значение которого наиболее всего отличается по модулю от заданного числа. Ввод и вывод необязательно. Если можете, напишите пожалуйста функцию по поиску! Заранее огромное спасибо!!!

[Serge_Bliznykov]

товарищ, задача ОЧЕНЬ простая.
Вы умеете искать минимальное или максимальное значение в массиве?
Так вот, в данном случае надо искать максимальное значение.
Только не максимальное значение самого элемента массива, а максимальное значение ABS(ABS(N) - ABS(A[i]))
где ABS() функция получения абсолютного значения (модуля)
N - заданное число
A[i] - i-й элемент массива

давайте ваши наработки (написанный вами код), будет повод для дальнейшей беседы.

[min@y™]

type
  TMatrix: array of array of Integer; // допустим, целые
  
function FindMaxElement(const M: TMatrix; const Value: Integer): TPoint;
var
  Row, Col, MaxCell: Integer;
begin
  Result.X:= 0;
  Result.Y:= 0;
  MaxCell:= Value;

  for Row:= 0 to Length(M) - 1 do
    for Col:= 0 to Length(M[Row]) - 1 do
      if Abs(M[Row, Col]) > MaxCell
        then begin
               MaxCell:= Abs(M[Row, Col]);
               Result.X:= Row;
               Result.Y:= Col;
             end;
end;