Двумерный Массив В Delphi

[sketch45]

Дан двумерный массив размером n*m, заполненный случайными числами из промежутка [-25,25]1) Заменить отрицательный элемент каждого столбца на положительный 2) Поменять местами второй и последний столбцы

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
SetLength(a, n,m);
stringgrid1.RowCount:=n+1;
stringgrid1.ColCount:=m+1;
for i:=0 to n-1 do
for i1:=0 to m-1 do
begin
randomize;
a[i,i1]:=RandomRange(-35, 35);
StringGrid1.Cells[i1+1,i+1]:=IntToStr(a[i,i1]);
end;
end;

 

[-master-]

во первых, почитайте про randomize

 

[sketch45]

зачем читать я что то сделал не правильно?

 

[-master-]

А вы прочитайте.

 

[Elena04]

Задан двумерный массив размерности m*n. Дополнить его строкой и столбцом, в которых записать сумму элементов соответствующих строк и столбцов исходного массива. В элементе (m+1, n+1) должна храниться сумма всех элементов первоначального массива.