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

Максимальный элемент массива

max: = a [ 1 ];

for i:=2 to n do

if a [ i ] > max then

max:=a [ i ];

write ('max=',max) ;

Номер максимального элемента массива

n_max:=1;

for i:=2 to n do

if a [ i ] > a[n_max] then

n_max:= i;

write ('max=',a [ n_max ]) ;

Минимальный элемент массива

min : = a [ 1 ];

for i:=2 to n do

if a [ i ] < min then

min:=a [ i ];

write ('min =',min) ;

Поиск максимального (минимального) элемента массива, про значения элементов которого известно, что они принадлежат определенному диапазону [a; b].

Максимальный элемент массива

max: = a;

for i:=1 to n do

if a [ i ] > max then

max:=a [ i ];

write ('max=',max) ;

Минимальный элемент массива

min : = b;

for i:=1 to n do

if a [ i ] < min then

min:=a [ i ];

write ('min =',min) ;

Поиск номера максимального элемента произвольного массива

n_max:=1;

for i:=2 to n do

if a [ i ] >a [ n_max] then

n_max:= i ;

write ('n_max =',n_max) ;

Обнулить элементы массива, расположенные между его минимальным и максимальным элементами (не включая минимальный и максимальный элементы).
vara: array [1..10] of integer;
min,max:integer; // номера макс и мин элемента
j,jj:integer; // № эл между которых обнулить эл-ты
i:integer; // счетчик в цикле
begin
// формирование исходного массива

for i:=1 to 10 do begin readln(A[i]); end;
// присвоение начальных значений

min:=1; max:=1;
// нахождение номеров макс и мин эл-ов
for i:=1 to n do

begin
if a[min]>a[i] then min:=i;
if a[max] >a[i] then max:=i;
end

// определяем номера первого и последнего элемента
if min>max then

Begin

j:=max; jj:=min;

end
else

Begin

jj:=max; j:=min;

end;

// организуем цикл для обнуления элементов

for i:=j+1 to jj-1 do
begin a[i]:=0; end;

// вывод результата
for i:=1 to 10 do Write(A[i],' ');
end.