Поиск минимального (максимального) элемента массива

Чтобы найти максимальный элемент массива, заводим переменную max, в которую помещаем сначала первый элемент. Каждый следующий сравниваем с max, и если он больше, то его запоминаем в max вместо хранящегося там числа. После просмотра всех элементов в max остаётся

program poisk_max; var a:array[1..20] of integer; i,max:integer; begin randomize; for i:=1 to 20 do begin a[i]:=1+random(99); write(a[i],’ ’); end; writeln; max:=a[1]; for i:=2 to 20 do if a[i]>max then max:=a[i]; writeln(’Наибольший элемент массива = ’,max); readln; end.

наибольшее число.

Минимальный элемент находят так же, только ищут число, меньшее, чем min.

Иногда кроме самого значения максимального элемента нужно найти и место, где он располагается. Для этого в цикле поиска, найдя число большее, чем было найдено раньше, нужно запомнить не только его само, но и его номер, как показано в следующем фрагменте:

<29 30 313233 34 35 >

Дата добавления: 2014-12-18; просмотров: 726;