Question

Найти наименьший из элементов, расположенных правее максимального элемента массива. Вместо наименьшего элемента выводит последний. Помогите исправить. const n=10; var a:array[1..n] of integer; i,j,max,minp:integer; begin write('Массив '); for i:=1 to n do begin a[i]:=random(100); write(a[i]:4); end; writeln; write('Максимальный элемент '); max:=0; imax:=0; for i:=1 to n do if (a[i]>max) then begin max:=a[i]; j:=i; end; writeln(max); minp:=0; for i:=j to n do if (a[i] minp:=a[i]; write('Наименьший элемент правее максимального ',minp); end.

Answer 1

Заменить строки в конце программы:   minp:=max;

for i:=j to n do  

if (a[i]<minp) then minp:=a[i];

Answer 2

Ваш код содержит несколько ошибок. Вот исправленная версия:

pascalCopy code
const
  n = 10;

var
  a: array[1..n] of integer;
  i, j, max, minp: integer;

begin
  Randomize;

  write('Массив: ');
  for i := 1 to n do
  begin
    a[i] := Random(100);
    write(a[i]:4);
  end;
  writeln;

  write('Максимальный элемент: ');
  max := 0;
  j := 0;
  for i := 1 to n do
  begin
    if (a[i] > max) then
    begin
      max := a[i];
      j := i;
    end;
  end;
  writeln(max);

  minp := MaxInt; // Инициализируем minp значением MaxInt, чтобы гарантированно найти меньший элемент
  for i := j + 1 to n do
  begin
    if (a[i] < minp) then
    begin
      minp := a[i];
    end;
  end;

  if (minp = MaxInt) then
  begin
    writeln('Нет элементов правее максимального');
  end
  else
  begin
    writeln('Наименьший элемент правее максимального: ', minp);
  end;
end.

В этой версии я добавил проверку на случай, если нет элементов, расположенных правее максимального элемента. Если значение minp остается равным MaxInt, то выводится сообщение "Нет элементов правее максимального". В противном случае выводится наименьший элемент. Кроме того, я добавил вызов Randomize, чтобы инициализировать генератор случайных чисел перед использованием Random.