Question

Срочно! 10 класс, паскаль Напишите алгоритм линейного поиска, если стоит задача найти место последнего элемента в массиве, соответствующего заданному условию.

Answer 1

function find_last_match(array: array of integer; condition: function(x: integer): boolean): integer;
begin
 // Индекс последнего элемента, соответствующего условию.
 var
   index: integer;

 // Начинается с конца массива.
 index := length(array) - 1;

 // Итеративно проверяет элементы массива, начиная с последнего.
 while index >= 0 do begin
   // Если текущий элемент удовлетворяет условию, возвращает его индекс.
   if condition(array[index]) then
     exit;

   // Переходит к следующему элементу.
   index := index - 1;
 end;

 // Если все элементы массива проверены и ни один из них не удовлетворяет условию, возвращает -1.
 return -1;
end;

пример использования:

function is_even(x: integer): boolean;
begin
 return x mod 2 = 0;
end;

var
 array: array of integer = [1, 2, 3, 4, 5];
 index: integer;

begin
 index := find_last_match(array, is_even);
 writeln(index);
end;

Answer 2

Алгоритм линейного поиска последнего элемента в массиве, соответствующего заданному условию, может быть реализован на языке Pascal следующим образом:

program LinearSearchLast;
var
  arr: array of integer;  // Объявляем массив
  targetValue, lastIndex, i: integer;  // Объявляем переменные

begin
  // Вводим размер массива и целевое значение
  writeln('Введите размер массива:');
  readln(lastIndex);
  SetLength(arr, lastIndex);
  
  writeln('Введите элементы массива:');
  for i := 0 to lastIndex - 1 do
  begin
    readln(arr[i]);
  end;
  
  writeln('Введите целевое значение для поиска:');
  readln(targetValue);
  
  lastIndex := -1;  // Инициализируем индекс последнего найденного элемента
  
  // Начинаем поиск с конца массива
  for i := lastIndex downto 0 do
  begin
    if arr[i] = targetValue then
    begin
      lastIndex := i;  // Найден элемент, обновляем индекс последнего найденного элемента
      break;  // Выходим из цикла, так как мы ищем только последний элемент
    end;
  end;
  
  if lastIndex >= 0 then
    writeln('Последний элемент, соответствующий заданному условию, находится в позиции: ', lastIndex)
  else
    writeln('Элемент, соответствующий заданному условию, не найден в массиве.');
end.

Этот код сначала запрашивает у пользователя размер массива, элементы массива и целевое значение для поиска. Затем он выполняет линейный поиск, начиная с конца массива и обновляя индекс последнего найденного элемента при каждом совпадении. В конце программы выводится позиция последнего найденного элемента, соответствующего заданному условию, или сообщение о том, что такой элемент не найден в массиве.