Напишите программу пожалуйста в паскале произведение элементов массива, расположенных...

Question

Напишите программу пожалуйста в паскале

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

Answer 1

Const n=10;
var min,max,i:integer; p:real; a:array[1..n] of real;
begin
p:=1; min:=1; max:=1;
for i:=1 to n do read(a[i]);
for i:=1 to n do if a[i]>a[max] then max:=i else if a[i]if maxwrite(p)
end.