линейная таблица(Delphi)

[2009]

Есть линейная таблица с числами, которые заполняются рандоном, нужно подсчитать сумму всех чисел линейной таблицы и записать ответ в ячейку линейной таблицы, пожалуйста, поманите реализовать, если можно с объяснениями подозреваю что это будет что то похожее на

sum:=0;
for i:=1 to m do
sum:=sum+n[i];

а вот как присвоить значение суммы линейной таблице я что-то не догадываюсь

[Chudo4258]

1111111111111111111111111111

[2009]

Во блин, как я сам не допер, прога та элементарная, куда более сложные сам делал, а тут... наверное, перезанимался весьма БЛАГОДАРЕН!!

а можно как-то добавить еще кнопочки сортировке по возрастанию и по убыванию??

[Chudo4258]

Конечно можно, берешь любой метод сортировки и сортируешь? Можешь прямо в StringGrid-e (он обычный массив Cells[i,j]).

Сортировка массива выбором (в порядке возрастания).
Идея решения: пусть часть массива (по K-й элемент включительно)
отсортирована. Нужно найти в неотсортированной части массива
минимальный элемент и поменять местами с (K+1)-м

  with StringGrid1 do  
   For I := 1 To Colcount - 2 Do // до предпоследнего
    Begin
     K := I;
     For J := I + 1 To Colcount - 1 Do // до последнего
     If StrToInt(Cells[J]) <= StrToInt(Cells[K]) Then K := J;
     Pr := StrToInt(Cells[I]);
     StrToInt(Cells[I]) := StrToInt(Cells[K]);
     StrToInt(Cells[K]) := Pr;
   End;

Жми на весы