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

[Fri]

Код написал, но как всегда у меня ошибки

type
  mas=array[1..7] of Integer;
var
  S,n,i,max,min,maxi,mini:Integer;
  A:mas;
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n+1;
for i:=1 to n  do
A[i]:=StrToInt(StringGrid1.Cells[i]);
max:=A[1];
min:=A[1];
S:=1;
for i:=1 to n do
if A[i]>max then
 begin
max:=A[i];
maxi:=i;
end;
for i:=1 to n do
if A[i]<min then
begin
  min:=A[i];
  mini:=i;
  end;

  for i:=maxi to mini do
 S:=S*A[i];
 Label1.Caption:=IntToStr(S);

end;

end.

В данный момент ругается на

A[i]:=StrToInt(StringGrid1.Cells[i]);

--------------------------------
Заменил

A[i]:=StrToInt(StringGrid1.Cells[i]);

на

A[i]:=StrToInt(StringGrid1.Cells[0,i]);

Всё равно пишет ошибку

[Serge_Bliznykov]

1) какая ошибка, разумеется, большая тайна!
Впрочем, рискну предположить - ошибка преобразования в целое число...

2) в StringGrid первый параметр - индекс столбца,
второй параметер - индекс строки.
у Вас точно есть ВЕРТИКАЛЬНЫЙ грид, в котором есть по вертикали в первом столбце НАЧИНАЯ СО ВТОРОЙ строки столько ячеек, сколько у Вас задано в Edit1.Text ?!

например, если в Edit1.Text число 5 - тогда должно быть в гриде 6 (шесть) строк, где числа должны быть в ячейках начиная со 2-й и заканчивая 6-й.

может быть, Вы хотели так ?:

A[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

p.s. а ещё не вижу контроля, чтобы вы проверяли число в Edit1.Text, чтобы оно было НЕ БОЛЬШЕ размера массива A (в вашем случае не больше семи)

[Stilet]

Всё равно пишет ошибку

Такое впечатление что то что он пишет является единственной ошибкой в мире. Наверное поэтому ты думаешь что все знают что это за ошибка.

[Fri]

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

в StringGrid первый параметр - индекс столбца,
второй параметер - индекс строки.
у Вас точно есть ВЕРТИКАЛЬНЫЙ грид, в котором есть по вертикали в первом столбце НАЧИНАЯ СО ВТОРОЙ строки столько ячеек, сколько у Вас задано в Edit1.Text ?!
[/I]

Ну я задал параметры грида такие: ColCount: 7 , RowCount: 1.

В программе в едите(где задаю n) пишу 7.

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

Такое впечатление что то что он пишет является единственной ошибкой в мире. Наверное поэтому ты думаешь что все знают что это за ошибка.

Ошибку пишет как я понял как раз таки в переводе числа. "is not a valid integer value".
Если попробывать добавить в программу функцию трим (

A[i]:=StrToIntDef(Trim(StringGrid1.Cells[0,i]),0);

) то в ответе сумма получается просто 1.

---------
Попробую в консольном написать. Всё таки мне кажется я тут с гридом намутил....

[Fri]

Хм...написал в консольном виде, так прога в конце вылетает

uses
  SysUtils;
type
  mas=array[1..7] of Integer;
 var
 S,i,N:Integer;
 max,min,maxi,mini:Integer;
 A:mas;
begin
 write('N='); read(N);
 for i:=1 to N do
 begin
   write('A[',i,']=');
   read(A[i]);
 end;
 S:=1;
 max:=A[1];
 min:=A[1];
 maxi:=1;
 mini:=1;
for i:=1 to N do
if A[i]>max then
begin
  max:=A[i];
  maxi:=i;
end;
for i:=1 to N do
if A[i]<min then
begin
  min:=A[i];
  mini:=i;
end;

for i:=maxi to mini do
begin
S:=S*A[i];
Writeln('PROIZVED=',S);
Readln;

end;

end.

Где тут ошибка???