Question

Известно, что в массиве, состоящем из 10 элементов, заполненном с клавиатуры, есть несколько чисел 5. Найти порядковые номера первого и последнего из них. Известно, что в массиве, состоящем из 10 элементов, заполненном с клавиатуры, есть несколько чисел 5. Найти порядковые номера первого и Последнего из них. ​ (НА ПАСКАЛЕ)

Answer 1

Программа:

Pascal:

const n = 10;  // кол-во элементов в массиве

var

 arr: array[1..n] of integer;

 i: integer;

begin

 for i := 1 to n do  // ввод массива с клавиатуры

 begin

   write('arr[', i, '] = ');

   readln(arr[i]);

 end;

 

 i := 1;

 while arr[i] <> 5 do i += 1;  // поиск индекса первой 5-ки

 writeln('Индекс первого элемента 5: ', i);

 i := n;

 while arr[i] <> 5 do i := i - 1;  // поиск индекса последней 5-ки

 writeln('Индекс последнего элемента 5: ', i);

end.

Answer 2

Для решения данной задачи на Паскале, вам потребуется создать массив из 10 элементов и заполнить его числами, вводимыми с клавиатуры. Затем вы сможете найти порядковые номера первого и последнего числа 5 в этом массиве.

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

program FindIndexes;
var
  arr: array[1..10] of Integer;
  i, firstIndex, lastIndex: Integer;
begin
  // Заполнение массива числами, вводимыми с клавиатуры
  for i := 1 to 10 do
  begin
    Write('Введите число: ');
    ReadLn(arr[i]);
  end;

// Поиск порядковых номеров первого и последнего числа 5
  firstIndex := -1;
  lastIndex := -1;
  for i := 1 to 10 do
  begin
    if arr[i] = 5 then
    begin
      if firstIndex = -1 then
        firstIndex := i;
      lastIndex := i;
    end;
  end;

// Вывод результатов
  if firstIndex <> -1 then
    WriteLn('Первый номер числа 5: ', firstIndex)
  else
    WriteLn('Число 5 не найдено в массиве.');

if lastIndex <> -1 then
    WriteLn('Последний номер числа 5: ', lastIndex)
  else
    WriteLn('Число 5 не найдено в массиве.');

ReadLn;
end.

Этот код создает массив `arr` из 10 элементов и заполняет его числами, вводимыми с клавиатуры. Затем он ищет порядковые номера первого и последнего числа 5 в массиве и выводит результаты.

Примечание: Пожалуйста, обратите внимание, что код на Паскале не является частью результатов поиска, предоставленных You.com.