Delphi.Нужно найти сумму

[Ponce de leon]

http://s017.radikal.ru/i406/1503/69/5f1da09a3878.png попробовал вставить в программу вот что-то пошло не так.

[Serge_Bliznykov]

Ponce de leon
ну правильно ругается.
Для получения числа из ячейки грида нужно обратное преобразование Str -> Int:

if StrToInt(StringGrid1....)< StrToInt( StringGrid1....) then

p.s. кстати, насколько я видел, у вас массив из файла читается в переменную a. Если она доступна (а она доступна - строчками выше вы находите разные суммы как раз с помощью переменной a), то можно искать минимум и сумму столбца именно в этой матрице. Это и надёжней и проще и быстрее. Ведь грид - это средство отображения (визуализации) данных. Если, конечно, пользователь не имеет возможности изменять значения в гриде (редактирование выключено).

[Ponce de leon]

Вот ищет сумму строки с минимальным элементом, а вот столбца не могу чёт туплю.

6:begin IndexMinColumn := 1;
  IndexMinRow := 1;
  for i:=1 to n do
for j:=1 to n do
if a[i][j] < a[IndexMinColumn][IndexMinRow] then begin
IndexMinColumn := j;
IndexMinRow := i;
end;
for j := 1 to n do
    summa:=summa+a[IndexMinColumn][j];  end;
else
 begin
  ShowMessage('Âû íå âûáðàëè òðåóãîëüíèê äëÿ íàõîæäåíèÿ ñóììû');
  exit
           end;
                    end;
StringGrid2.Cells[1,1]:=inttostr(summa);

__
код форматируйте тегами!
Модератор

[Serge_Bliznykov]

смотрите, в этом идиотском StringGrid'е переставлены местами индексы строк и столбцов, там сначала идёт индекс столбца, а потом индекс строки.
при обращении к матрице принято писать наоборот - сначала номер строки, потом номер столбца.

поэтому пробуйте так:

6:begin 
    IndexMinColumn := 1;
    IndexMinRow := 1;
    for i:=1 to n do
       for j:=1 to n do
         if a[i][j] < a[IndexMinRow][IndexMinColumn] then 
         begin
           IndexMinRow := i;
           IndexMinColumn := j;
         end;

    ShowMessage('Столбец номер '+IntToStr(IndexMinColumn)+
       ' имеет минимальное значение = '+IntToStr(a[IndexMinRow][IndexMinColumn]));

    summa := 0; {надо обязательно обнулить переменную, где будем накапливать сумму}
    for i := 1 to n do
       summa:=summa+a[i][IndexMinColumn];  

    StringGrid2.Cells[1,1] := inttostr(summa);
  end;