Паскаль. Как вывести индекс элемента в массиве, если один элемент повторяется дважды?. Т.е.

Паскаль. Как вывести индекс элемента в массиве, если один элемент повторяется дважды?. Т.е.

В Паскале можно использовать цикл для перебора элементов массива и проверки на совпадение с заданным числом. Если элемент совпадает, то можно вывести его индекс. Вот пример кода:

program FindIndex;

var
  arr: array[1..10] of Integer;
  i, num: Integer;
  found: Boolean;

begin
  // Заполняем массив значениями
  arr[1] := 2;
  arr[2] := 4;
  arr[3] := 6;
  arr[4] := 4;
  arr[5] := 8;
  arr[6] := 10;
  arr[7] := 4;
  arr[8] := 12;
  arr[9] := 14;
  arr[10] := 4;

  // Вводим число, для которого хотим найти индекс
  Write('Введите число: ');
  ReadLn(num);

  // Ищем индекс числа в массиве
  found := False;
  for i := 1 to 10 do
  begin
    if arr[i] = num then
    begin
      WriteLn('Индекс числа ', num, ' в массиве: ', i);
      found := True;
    end;
  end;

  // Если число не найдено
  if not found then
    WriteLn('Число ', num, ' не найдено в массиве.');

  ReadLn;
end.

В этом примере мы создаем массив arr и заполняем его значениями. Затем мы вводим число num, для которого хотим найти индекс. Затем мы используем цикл for для перебора элементов массива и проверки на совпадение с num. Если элемент совпадает, мы выводим его индекс. Если число не найдено, выводим сообщение об этом.