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

  • Автор темы sketch45
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

sketch45

Гость
#1
Дан двумерный массив размером 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;
 
S

sketch45

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

Elena04

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