Массив в паскале!

[Гамбит]

Задача.
В одномерном массиве из N вещественных элементов, вычислить произведение элементов массива, расположенных между max и min по модулю элементами.

Program lab_5;
uses crt;
const n=10;
Var a:array[1..n] of real;
t,s:real;
i,j:integer;
begin
clrscr;
s:=1;
for i:=1 to n do
read(a[i]);
For i:=1 to n do
a[i]:=abs(a[i]);
for i:=1 to n-1 do
begin
for j:=i+1 to n-1 do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
For i:=2 to n-1 do
Begin
s:=s*a[i];
writeln('s=',s);
end;
readln;
end

Это у меня получилось, но не работает! укажите на ошибку пожалуйста!

[Alex Cones]

1) Есть кнопка код.
2) Код должен быть читаем:
2.1) Отформатируйте Код.
2.2) В блоке [CODE] [\CODE] выберите шрифт Courier.

Без этого разобраться в этом коде... Хм.

[Desha]

произведение элементов массива, расположенных между max и min по модулю элементами.

1. В модулях должны быть только макс и мин. А Вы все значения по модулю перезаписываете в тот же массив.
2. Надо найти макс и мин и запомнить их индексы.
3. сравнить, что втречается раньше - макс или мин.
4. потом в цикле от индекса мин до индекса макс (или наоборот. зависит от пункта 3)переумножить все элементы.

[Гамбит]

Во первых так и не понял как выбирать шрифт.
Во вторых я врядли смогу написать сам такую программу. Можно ли хоть кусок кода?

[Dmitry333]

Держи

const
     n=5;
var
   a:array[1..n] of real;
   max,min,s:real;
   i,x,y:integer;
begin
     randomize;
     for i:=1 to n do
     begin
          readln(a[i]);
     end;
     writeln;
     max:=abs(a[1]);
     min:=abs(a[1]);
     x:=1;
     y:=1;
     for i:=1 to n do
     begin
          if abs(a[i])>max then
          begin
               max:=abs(a[i]);
               x:=i;
          end;
          if abs(a[i])<min then
          begin
               min:=abs(a[i]);
               y:=i;
          end;
     end;
     if x = y then 
     begin
          writeln('max = min');
          exit;
     end;
     s:=1;
     if x<y then
     begin
          for i:=x+1 to y-1 do s:=s*a[i];
     end else
         begin
           for i:=y+1 to x-1 do s:=s*a[i];
         end;
     writeln('Minimalniy ',y,'    Maximalniy ',x);
     writeln('Summa ravna ',s:3:2);
     readln;
end.

Вроде работает

[Гамбит]

Спасибо, но программа работает плохо =( придётся самому разбиратся

[Stilet]

Так подойдет?

 const n=5;
 var a:array[1..n] of double;i:integer;
 mx,mn:integer;sum:double;
begin          mn:=1;mx:=1;sum:=0;
 for i:=1 to n do begin
  a[i]:=random(200)/5;
  if a[i]<a[mn] then mn:=i;
  if a[i]>a[mx] then mx:=i;
  write(a[i]:8:2);
 end;
 writeln;
 if mn<mx then
  for i:=mn to mx do begin
   sum:=sum+a[i];
  end
 else
  for i:=mn downto mx do begin
   sum:=sum+a[i];
  end;
 writeln('sum=',sum:5:2);

 Readln;
end.

[Гамбит]

Stilet спаибо. Правда там выдаёт ошибку какуюто... но я думаю смогу доработать этот алгоритм =)
да может ктонить подскажет что это а ошибка. "Must be in 8087 mode to compile this " /

[Stilet]

Must be in 8087 mode to compile this

Ну я на Делфи это писал, так что использую DOUBLE
А в паскале нужно в меню options-Compiler option включить галку на 8087 и Emulation
Или вместо Double напиши Real

[Гамбит]

Я заменил на real, и мне нужно было посчитать произведение, а не сумму, но это я тоже сделал, но оно считает произведение неправильно =( + мне нужны по модулю макс мни элементы.