Суть задачи состоит в том, что б преобразовать треугольный массив в одномерный, естественно без нолей) нашла формулу X = I * (I - 1) / 2 + J, работает она для i>j Немогу реализовать код: for i:=0 to 3 do begin for j:=0 to 3 do begin if i>j then begin B[round(((i*(i-1))/2)+j)]:=strtoint(StringGrid1.Cells[i,j]); StringGrid2.Cells[i,j]:=inttostr(B[round((i*(i-1))/2)+j]); end; end; end; после запуска выдает ошибку)
