Строки (Delphi)

[giga_person]

Дан двухмерный динамический массив a x a. Как осуществить проверку, что сумма каждого столбца или строки меньше единицы?

Заранее благодарен.

[пауэрлифтинг]

считать сумму каждой строки в цикле и потом сравнивать с 1

[giga_person]

считать сумму каждой строки в цикле и потом сравнивать с 1

Ок.

 for i := 1 to razmer do
 begin
   usl:=usl + StrToFloat(StringGrid1.Cells[i-1, 0]);
 end;
   if usl >= 1
     then begin
             ShowMessage('Ошибка!');
             exit;
          end;

А как с двухмерным? Динамическим?