Уровень b. Напишите программу, которая создает массив, состоящий из 10 случайных чисел в диапазоне от -10 до 10. Затем

Задание: Создайте программу, которая создает массив, состоящий из 10 случайных чисел в диапазоне от -10 до 10. Затем программа должна выводить этот массив на экран и определять индекс последнего элемента, равного заданному числу x. Если в массиве такого элемента нет, программа должна выводить сообщение "не найден".

Описание: Для решения данной задачи нам потребуется использовать цикл для заполнения массива случайными числами и ещё один цикл для определения индекса искомого числа в массиве. Мы будем использовать функцию `random()` для генерации случайного числа в заданном диапазоне и функцию `writeln()` для вывода сообщений на экран.

Доп. материал:

pascal

program ArraySearch;

var

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

  x, i, index: integer;

begin

  // Заполнение массива случайными числами

  randomize;

  for i := 1 to 10 do

    arr[i] := random(21) - 10;

  

  // Вывод массива на экран

  for i := 1 to 10 do

    write(arr[i], " ");

  

  // Определение индекса искомого числа

  write("Введите число для поиска: ");

  readln(x);

  

  index := -1;

  for i := 10 downto 1 do

  begin

    if arr[i] = x then

    begin

      index := i;

      break;

    end;

  end;

  

  // Проверка найденного индекса и вывод результата

  if index <> -1 then

    writeln("Индекс последнего элемента, равного ", x, ": ", index)

  else

    writeln("Не найден");

  

  readln;

end.

Совет: Для лучшего понимания работы программы, рекомендуется внимательно просмотреть каждую строку кода и попробовать прогнать программу на компьютере, вводя различные значения для поиска.

Проверочное упражнение: Попробуйте изменить программу таким образом, чтобы она выводила все индексы элементов, равных заданному числу x, или сообщение "не найден", если таких элементов нет.