Для создания массива из 10 элементов, заполнения его случайными числами в диапазоне от -10 до 10 и определения двух максимальных значений вместе с их индексами на языке Паскаль, мы можем следовать следующим шагам:

1. Объявление переменных: Нам нужно объявить массив, переменные для хранения максимальных значений и их индексов, а также переменную для генерации случайных чисел.
2. Инициализация генератора случайных чисел: С помощью функции Randomize мы инициализируем генератор случайных чисел, чтобы получать разные последовательности случайных чисел при каждом запуске программы.
3. Заполнение массива: В цикле мы будем заполнять массив случайными числами в заданном диапазоне.
4. Поиск максимальных значений: После заполнения массива мы пройдем по нему, чтобы найти два максимальных значения и их индексы.

Теперь давайте рассмотрим код программы:

program MaxValues; var arr: array[1..10] of Integer; // Объявляем массив из 10 элементов i, max1, max2, index1, index2: Integer; begin Randomize; // Инициализация генератора случайных чисел for i := 1 to 10 do begin arr[i] := Random(21) - 10; // Генерируем случайное число end; max1 := -11; // Минимальное значение меньше -10 max2 := -11; // Минимальное значение меньше -10 for i := 1 to 10 do begin if arr[i] > max1 then begin max2 := max1; // Предыдущее максимальное значение становится вторым index2 := index1; // Индекс второго максимального значения max1 := arr[i]; // Обновляем первое максимальное значение index1 := i; // Обновляем индекс первого максимального значения end else if (arr[i] > max2) and (arr[i] <> max1) then begin max2 := arr[i]; // Обновляем второе максимальное значение index2 := i; // Обновляем индекс второго максимального значения end; end; WriteLn('Максимальное значение 1: ', max1, ' (Индекс: ', index1, ')'); WriteLn('Максимальное значение 2: ', max2, ' (Индекс: ', index2, ')'); end.

В этом коде:

• Мы используем массив arr для хранения 10 случайных чисел.
• С помощью функции Random мы генерируем числа в диапазоне от -10 до 10.
• Мы ищем два максимальных значения, сравнивая каждое число с текущими максимальными значениями max1 и max2.
• В конце мы выводим найденные максимальные значения и их индексы.

Таким образом, вы получите массив случайных чисел и сможете определить два максимальных значения с их индексами. Если у вас есть вопросы по коду или его работе, не стесняйтесь задавать!