Найти наименьший из элементов, расположенных правее максимального элемента массива. вместо наименьшего элемента выводит последний. исправить. 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.
Заменить строки в конце программы: minp:=max;
for i:=j to n do
if (a[i]<minp) then minp:=a[i];