Задан одномерный массив A[1.20]. Найти максимальный элемент среди элементов с n-го по k-й и его индекс - PascalABC.NET

Формулировка задачи:

Задан одномерный массив A[1..20]. Найти максимальный элемент среди элементов с n-го по k-й и его индекс помогите, пожалуйста, решить задачу

Решение задачи: «Задан одномерный массив A[1.20]. Найти максимальный элемент среди элементов с n-го по k-й и его индекс»

Листинг программы

const
  n_max = 10;
 
var
  a: array [1..n_max] of integer;
  k, n, i, p, max: integer;
 
begin
  for i := 1 to n_max do
  begin
    write('Введите A[', i, ']: ');
    readln(a[i]);
  end;
  write('Введите k,n: ');
  readln(k, n);
  max := a[k];
  for i := k to n do
    if max < a[i] then 
    begin
      p := i;
      max := a[i];
    end;
  writeln('Максимальный элемент - ', max);
  writeln('Номер элемента - ', p);
end.

Объяснение кода листинга программы

Объявлены переменные:
- n_max - максимальное количество элементов в массиве (10);
- a - массив для хранения чисел (1..n_max);
- k, n, i, p, max - целочисленные переменные для выполнения задачи.
Заполняется массив a с помощью цикла for и ввода с клавиатуры.
Вводятся значения k и n с помощью функции readln().
Переменная max инициализируется значением элемента с индексом k.
Цикл for проходит по элементам массива от k до n и ищет большее значение, чем max. Если такое значение найдено, то оно присваивается переменной max, а также запоминается индекс элемента в переменной p.
Выводятся значения max и p.