Информатика

Саттар

2 ноября, 16:16

Найти наименьший из элементов, расположенных правее максимального элемента массива.

Вместо наименьшего элемента выводит последний. Помогите исправить.

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.