RosettaCodeData/Task/Binary-search/Pascal/binary-search-2.pas

5 lines
81 B
ObjectPascal

var
list: array[0 .. 9] of real;
// ...
indexof := binary_search(123, list);