В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
elenavalkova92
elenavalkova92
07.01.2021 00:24 •  Информатика

Найти наименьший из элементов, расположенных правее максимального элемента массива. вместо наименьшего элемента выводит последний. исправить. 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.

Показать ответ
Ответ:
lidaat
lidaat
09.10.2020 07:56

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

for i:=j to n do  

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

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота