Таблица с записями Опции

[Pangolin]

Дано описание константы n и типа таблицы со строки типа MyRecord
Const n=30;
Type MyRecord = Record
Key: Integer;
Name: String;
End;
Table = Array[1..n] Of MyRecord
Считая, что в таблице записи имеют различные ключи, описать логическую функцию Found(T, K, H), определяющую, есть ли в таблице T (все записи которой уже упорядочены по возрастанию поля Кеу) запись со значением поля Key, равным K, и, если есть, присваивающую ее номер параметру H.

Помогите.. Никак не пойму чего хотят...

[volvo]

Никак не пойму чего хотят...

Вот этого, наверное:

function Found(var t: table; k: integer; var H: integer): boolean;
var i: integer;
begin
  H := 0;
  Found := True;

  for i := 1 to n do
    if T[i].Key = K then begin
      H := i; exit;
    end;

  Found := False;
end;

Хотя, если записи упорядочены по возрастанию K, можно применить и другой алгоритм поиска, например бинарный... (Посмотри в поиске, klem4 как-то выкладывал реализацию...)