В одномерном массиве, состоящем из n вычислить в Паскале:

[Rusat]

Здравствуйте! Помогите разобраться дана задача
В одномерном массиве, состоящем из n вычислить:
1) сумму отрицательных элементов массива;
2) произведение элементов массива, расположенных между максимальным и миимальным элементами.
Упорядочить элементы массива по возрастанию.

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

Program massiv;
Uses Crt;
const n=10;
var i,j,proizv,k,sum,min,max:integer;
mat: array [1..n] of integer;
begin
clrscr;
for i := 1 to n do {задаем элементы массива}
read(mat[i]);
sum:=0;
For i:=1 to n do {Считаю сумму отрицательных элементов массива}
If mat[i]<0 then
sum:=sum+mat[i];
writeln(sum);
for i := 1 to n do {Ищу порядок максимального элемента массива}
max:=mat[1];
For i:=2 to n do
if mat[i]>max then
max:=i;
for i := 1 to n do {Ищу порядок минимального элемента массива}
min:=mat[1];
For i:=2 to n do
if mat[i]<min then
min:=i;
writeln(min,' ',max); {Вывожу порядок минимального и максимального элементов массива}
If min>max then {Меняю местами порядки, если порядок максимального меньше минимального}
begin
k:=min;
min:=max;
max:=k;
end;
proizv:=1;
for i := min to max do {Считаю произведение между минимальным и максимальным элементами массива}
Proizv:=proizv*mat[i];
writeln(proizv);
for i := 1 to n do {Упорядочиваю элементы массива по возрастанию}
for j := 1 to n do
if mat[i]<mat[j] then
begin
k:=mat[i];
mat[i]:=mat[j];
mat[j]:=k;
end;
for i := 1 to n do {Вывожу упорядоченный массив}
write(mat[i], #32);
readkey;
end.

[Ser@Fim]

В min и max у тебя стоят индексы(номера) минимального/максимального элемента, соответственно сравнивать надо сами элементы:

for i := 1 to n do {Ищу порядок максимального элемента массива}
max:=mat[1];
For i:=2 to n do
  if mat[i]>mat[max] then
     max:=i;
for i := 1 to n do {Ищу порядок минимального элемента массива}
min:=mat[1];
For i:=2 to n do
  if mat[i]<mat[min] then
     min:=i;

ну а выделенное красным убрать надо, это лишнее

[eoln]

Неправильный поиск максимального и минимального элементов и их позиций

for i := 1 to n do {Ищу порядок максимального элемента массива} //эта строка лишняя
max:=mat[1];
maxPos := 1;
For i:=2 to n do
if mat[i]>max then begin
  max:=mat[i];
  maxPos := i
end;

Для минимального аналогично

writeln(minPos,' ',maxPos); {Вывожу порядок минимального и максимального элементов массива}
If minPos>maxPos then {Меняю местами порядки, если порядок максимального меньше минимального}
begin
k:=minPos;
minPos:=maxPos;
maxPos:=k;
end;
proizv:=1;
for i := minPos to maxPos do {Считаю произведение между минимальным и максимальным элементами массива}
Proizv:=proizv*mat[i];
writeln(proizv);

ДОБАВЛЕНО

Сообщение от Ser@Fim

max:=mat[1];
For i:=2 to n do
  if mat[i]>mat[max] then
     max:=i;

Тоже не верно. Пример тому массив [100, 2, 1, 3, 4, 5, 6, 8, 7, 6]. mat[100] - не существует

[Rusat]

Спасибо большое теперь все работает