Нахождение наибольшего (наименьшего) значения и порядкового номера

Пример. В массиве плотностей десяти химических элементов (d₁, d₂,..., d₁₀) найти элемент с наибольшей плотностью (d_max) и его порядковый номер (n).

Нахождение наибольшего (наименьшего) значения из последовательности чисел осуществляется при помощи алгоритма попарного сравнения. В качестве начального значения наибольшего (наименьшего) принимается первый элемент массива, с которым сравниваются все остальные элементы массива. Если сравниваемый член последовательности больше d_max, то d_max присваивается его значение, в противном случае d_max остается без изменения. Можно за начальное приближение d_max принять число, которое заведомо меньше (больше) всех элементов массива, например 10^–5.

Program Max; vard:array[1..10]of real; dmax:real; i,n:integer; Begin for i:=1 to 10 do readln(d[i]); dmax:=d[1]; for i:=2 to 10 do if d[i]>dmax then begin dmax:=d[i]; n:=i end; writeln(’dmax=’, dmax:10:3,’ n=’,n:3); End.

В том случае, когда не требуется нахождение самого значения максимального (минимального) элемента массива, а требуется определить только его номер, алгоритм поиска номера будет следующий:

Nmax:=1;

For i:=2 to 10 do

if d[i]> d[Nmax] then Nmax:= i;

Дата добавления: 2014-01-14