Примеры программ

// Линейный поиск в массиве
// Уровень сложности: 1
uses Arrays;

function IndexOf(a: array of integer; 
  k: integer): integer;
begin
  Result := -1;
  for var i:=0 to a.Length-1 do
    if a[i] = K then 
    begin
      Result := i;
      exit
    end;
end;

const N = 10;

var a: array of integer;

begin
  a := CreateRandomIntegerArray(N,0,19);
  writeln('Исходный массив: ');
  a.Writeln;
  
  var k := Random(10);
  writeln('Ищем элемент = ',k);
  
  var ind := IndexOf(a,k);
  if ind >=0 then
    writeln(K,' найден; индекс первого вхождения = ',ind)
  else writeln(K,' не найден')  
end.