var 1,imax: integer; a:array [1.. 10] of integer; блок описания переменных begin прграммнЙ блок randomize; for i := 1 to 10 do begin a [1] := random (100) ; writeln ('a [' i, ']='…

Чтобы понять, как модифицировать представленную программу на языке Паскаль для нахождения последнего из максимальных элементов и минимального элемента массива, давайте рассмотрим решение по шагам.

Исходный код

Исходная программа, представленная в задаче, находит максимальный элемент в массиве. Обратите внимание на следующие ключевые моменты:

1. Инициализация массива: массив a заполняется случайными числами от 0 до 99.
2. Поиск максимального элемента: идет перебор элементов массива, и обновляется индекс imax, если текущий элемент больше чем предыдущий максимальный.

Модификация программы для поиска последнего максимального элемента

Чтобы изменить программу так, чтобы она находила последний максимальный элемент, нужно внести изменения в логику поиска. Вместо того чтобы обновлять imax каждый раз при нахождении большего элемента, мы будем обновлять его только в тех случаях, когда встречаем новый максимальный элемент.

Измененный код для нахождения последнего максимального элемента:

var 
  i, imax: integer; 
  a: array[1..10] of integer;   // блок описания переменных 
begin 
  randomize; 
  for i := 1 to 10 do 
  begin 
    a[i] := random(100); 
    writeln('a[', i, '] = ', a[i]); 
  end; 
  // заполнение и вывод массива 
  
  imax := 1;  // предположим, что первый элемент максимальный 
  for i := 1 to 10 do // перебор всех элементов 
  begin
    if a[i] >= a[imax] then // изменено на >= для нахождения последнего максимального 
      imax := i;  // обновляем индекс imax на текущий 
  end; 
  // поиск наибольшего элемента массива 
  writeln('Последний максимальный элемент массива: ', a[imax]);  // вывод результата 
end.

Модификация программы для поиска минимального элемента

Теперь, чтобы модифицировать программу для нахождения минимального элемента, нужно просто изменить условие на меньшее (<) и инициализировать imin (индекс минимального элемента).

Измененный код для нахождения минимального элемента:

var 
  i, imin: integer; 
  a: array[1..10] of integer;   // блок описания переменных 
begin 
  randomize; 
  for i := 1 to 10 do 
  begin 
    a[i] := random(100); 
    writeln('a[', i, '] = ', a[i]); 
  end; 
  // заполнение и вывод массива 
  
  imin := 1;  // предположим, что первый элемент минимальный 
  for i := 1 to 10 do // перебор всех элементов 
  begin
    if a[i] < a[imin] then // условие для нахождения минимального элемента 
      imin := i;  // обновляем индекс imin на текущий 
  end; 
  // поиск наименьшего элемента массива 
  writeln('Минимальный элемент массива: ', a[imin]);  // вывод результата 
end.

Подводя итоги

Таким образом, для поиска последнего максимального элемента мы изменили логику сравнения и обновления индекса. Для поиска минимального элемента мы изменили сравнение на меньшее, а также инициализировали новый индекс imin вместо imax.

Эти изменения позволят программе корректно находить как последний максимальный элемент, так и минимальный элемент в массиве.