> -- Цитата:
> Любителей «чистого» структурного программирования наверняка устроит такой вариант решения:function Find(A: Matrix; X: integer): Boolean;var i, j: integer;begin  Result := False;  for i:=1 to N do    for j:=1 to N do      if A[i,j] = X then Result := Trueend;Но, к сожалению, по эффективности он не может составить конкуренцию предыдущим, так как в любом случае рассматриваются все N2 элементов массива, даже если элемент A[1,1] равен X.

...