[Fanil]

Спасибо, всё работает! но я хочу сделать так, чтобы можно было вводить не все значения, т.е. пустые ячейки приравнивались бы к нулю.
Для одномерного массива это выглядит примерно так:

Код:

for i:= 1 to 100 do
     if Length(StringGrid1.Cells[i-1,0]) <> 0
        then a[i] := StrToFloat(StringGrid1.Cells[i-1,0])
        else a[i] := 0;

А как это осуществить для двумерного? Заранее спасибо