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