Question

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

Answer 1

var B: array [1..7] of integer;

i: integer;

begin

   for i := 1 to 7 do

   begin

       write('Введите ', i, ' элемент: ');

       readln(B[i]);

   end;

   

   for i := 7 downto 1 do

       if B[i] = 5 then

       begin

           writeln(i);

           break;

       end;

end.

Answer 2

Вот как можно написать программу на Pascal, чтобы найти индекс последнего элемента равного 5 в массиве размером 7, заполненном с клавиатуры:

pascalCopy code
program LastIndexOf5;
var
  arr: array[1..7] of Integer;
  i, lastIndex: Integer;
begin
  writeln('Введите 7 целых чисел:');
  
  for i := 1 to 7 do
    readln(arr[i]);

  lastIndex := -1; // Инициализируем индекс последнего вхождения 5 как -1

  for i := 1 to 7 do
  begin
    if arr[i] = 5 then
      lastIndex := i; // Если текущий элемент равен 5, обновляем индекс
  end;

  if lastIndex <> -1 then
    writeln('Индекс последнего элемента равного 5: ', lastIndex)
  else
    writeln('В массиве нет элементов, равных 5.');
end.

Эта программа сначала заполняет массив arr с клавиатуры, затем проходит по массиву и ищет последний элемент, равный 5. Индекс последнего элемента (если такой есть) сохраняется в переменной lastIndex, которая выводится на экран в конце программы. Если элементы, равные 5, в массиве отсутствуют, программа выдаст соответствующее сообщение.