Question

Массив В размером 7, заполняется с клавиатуры. Известно, что в массиве имеются элементы, равные 5. Определить индекс последнего из них. паскаль

Answer 1

// PascalABC.NET 3.6

begin

 var b := ReadArrInteger(7);

 Print(b.LastIndexOf(5) + 1)

end.

Answer 2

Вот пример программы на языке Паскаль, которая позволяет решить данную задачу:

pascalCopy code
program LastIndexOfFive;

var
  arr: array[1..7] of Integer;
  i, lastIndex: Integer;
  found: Boolean;

begin
  writeln('Введите элементы массива:');
  
  // Заполнение массива с клавиатуры
  for i := 1 to 7 do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;
  
  found := False;
  
  // Поиск последнего элемента, равного 5
  for i := 7 downto 1 do
  begin
    if arr[i] = 5 then
    begin
      lastIndex := i;
      found := True;
      break;
    end;
  end;
  
  if found then
    writeln('Индекс последнего элемента, равного 5: ', lastIndex)
  else
    writeln('В массиве нет элементов, равных 5.');
  
  readln;
end.

В данном примере массив arr размером 7 заполняется с клавиатуры. Затем выполняется поиск последнего элемента, равного 5, путем перебора массива с конца. Если элемент найден, программа выводит его индекс. Если элементы, равные 5, отсутствуют в массиве, программа выводит соответствующее сообщение.