明解Ｃ言語 入門編 > 6. 関数 > 逐次探索 Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils;const NINSU = 5; FAILED = -1;function search(const ary:array of Integer; const key: Integer):Integer; var i: Integer; begin result := FAILED; fo…