процедура-функция для нахождения Произведения элементов массива, расположенных между максимальным и ми-нимальным элементами

[uHkBu3uTop]

Произведение элементов массива, расположенных между максимальным и ми-нимальным элементами.

[Serge_Bliznykov]

вам нужно сделать два прохода по массиву - за первый найти индексы минимального и максимального значения.
за второй проход - найти произведение.

[denisbrain]

Сообщение от Serge_Bliznykov

вам нужно сделать два прохода по массиву - за первый найти индексы минимального и максимального значения.
за второй проход - найти произведение.

  {
  Произведение элементов массива, расположенных между максимальным и ми-нимальным элементами.
}
uses crt;
const MaxNcount=1000; // размер массива
type
  TarrayInt=array [1..MaxNcount] of integer;


var b:TArrayInt; // массив элементов
    bcount:integer;
    
//1) заполнение массива случайными числами из заданного интервала;
procedure CreateArray(var a:TArrayInt;Ncount:integer);
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount do  a[i]:=1+random(5);
end;
//2) вывод массива на экран;
Function ShowArray(const a:TArrayInt;Ncount:integer):string;
var s:string;
    i:integer;
begin
s:='';
 for i:=1 to ncount-1 do
 if s='' then s:=s+inttostr(a[i])
 else
  s:=s+','+inttostr(a[i]);
  result:=s;
end;
//3) заполнение массива нулями (инициализация);
procedure CreateArrayInit(var a:TArrayInt;Ncount:integer);
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount-1 do  a[i]:=0;
end;
// 4) сохранение массива в текстовый файл;
Procedure SaveArrayToFile(const a:TArrayInt;Ncount:integer;FileName:string);
var F:file of string;
begin
 assign(f,FileName);
 rewrite(f);
 write(f,ShowArray(a,ncount));
 close(F);
end;
//5) чтение массива из текстового файла;
Procedure LoadArrayFromFile(var a:TArrayInt;var Ncount:integer;FileName:string);
var F:file of string;
    s2,s:string;
    x,y:integer;
begin
 assign(f,FileName);
 reset(f);
 read(f,s);
 s2:='';
 y:=1;
 for x:=1 to length(s) do begin
   if (s[x]=',') or (x=length(s)) then begin
   if s2<>'' then begin
     a[y]:=strtoint(s2);
     y:=y+1;
   end;
   s2:='';
   end
   else s2:=s2+s[x];
 end;
 close(F);
 Ncount:=y;
end;


Function GetFirstIndexMaxElementFromArray(a:TArrayInt;acount:integer):integer;
var x:integer;
begin
 result:=1;
  for x:=1 to Acount do begin
    if a[result]<a[x] then result:=x;
  end;
end;
Function GetFirstIndexMinElementFromArray(a:TArrayInt;acount:integer):integer;
var x:integer;
begin
 result:=1;
  for x:=1 to Acount do begin
    if a[result]>a[x] then result:=x;
  end;
end;

Function Max(a,b:integer):integer;
begin
  if a>b then result:=a
  else result:=b;
end;
Function Min(a,b:integer):integer;
begin
  if a<b then result:=a
  else result:=b;
end;

Function MultyArrayElementToElement(a:TArrayInt;acount:integer;Index1,index2:integer):integer;
var x:integer;
    multy:integer;
begin
  multy:=1;
  for X:=Min(index1,index2) to max(index2,index1) do begin
     multy:=multy*a[x];
  end;
  result:=multy;
end;


var minElemntIndex,MaxElemntIndex:integer;
begin
clrscr;
 bcount:=5;
// Сформировать линейный массив из 30 случайных чисел в интервале от -16 до 16.
 CreateArray(b,bcount);
 Writeln('Исходный массив ');
 Writeln(ShowArray(b,bcount));
 minElemntIndex:=GetFirstIndexMinElementFromArray(b,bcount);
 MaxElemntIndex:=GetFirstIndexMaxElementFromArray(b,bcount);
 Writeln('Минимальный элемент №',minElemntIndex);
 Writeln('Максимальный элемент №',MaxElemntIndex);
 Writeln('Произведение между элементами ',MultyArrayElementToElement(b,bcount,minElemntIndex,MaxElemntIndex));

end.