Двумерный массив Делфи приехали

[MrMorozko]

1)Дан двумерный массив размером n*m, заполненный случайными числами. Изменить массив путем деления всех его элементов на максимальный по модулю элемент.

2) Заполнить массив 6*6 по правилу:
123456
234561
345612
456123
561234
612345

[MrMorozko]

Напишите пожалуйста основное Спасибо

[Ybn2]

1) Заполняем массив

  for 1:=1 to n do
     for j:=1 to m do
       mas[i,j]:=Random (100);

Ищем максимальный по модулю

 Max:=low (integer);
   for 1:=1 to n do
     for j:=1 to m do
       if Max<ABS (Mas[i,j]) then max:=Mas[i,j];

формируем новую матр путем деления на макс.

 for 1:=1 to n do
     for j:=1 to m do
       mas[i,j]:=mas[i,j]/max;

[MrMorozko]

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, n, m, min, max,x, i_min, j_max, sum : integer;
mas : array [0..50, 0..50] of integer;

begin
  for i:=1 to n do
     for j:=1 to m do
       mas[i,j]:=Random (100);
        Max:=low (integer);
   for i:=1 to n do
     for j:=1 to m do
       if Max<ABS (Mas[i,j]) then max:=Mas[i,j];
       for i:=1 to n do
     for j:=1 to m do
       mas[i,j]:=round(mas[i,j]/max);

       StringGrid1.Cells[i,j] := inttostr(mas[i,j]);

       end;

что то не так

[Ybn2]

[QUOTE=MrMorozko;688849][CODE]procedure TForm1.Button1Click(Sender: TObject);
Во первых я не проверял, но
Max и Mas:Real; Ты же не малочисленно делишь.
Во вторых

   for i:=1 to n do
     for j:=1 to m do
      Begin        mas[i,j]:=round(mas[i,j]/max);
        StringGrid1.Cells[i,j] := Floattostr(mas[i,j]); 
      end;

Не забывай.

[Mad_Cat]

 for i:=1 to n do
     for j:=1 to m do begin
       mas[i,j]:=round(mas[i,j]/max);

       StringGrid1.Cells[j,i] := inttostr(mas[i,j]); end;

[Ybn2]

Mad_Cat А чем отличается Ваш код от моего?

[MrMorozko]

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, n, m, sum : integer;
min,max:real;
mas : array [0..100, 0..100] of real;

begin
  for i:=1 to n do
     for j:=1 to m do
       mas[i,j]:=Round((Random (-100)*100));
        Max:=low (integer);
   for i:=1 to n do
     for j:=1 to m do
       if Max<ABS (Mas[i,j]) then max:=Mas[i,j];
     for i:=1 to n do
     for j:=1 to m do begin
       mas[i,j]:=mas[i,j]/max;
     StringGrid1.Cells[j,i] := floattostr(mas[i,j]);

      end;

       end;

кхмм..не выводит матрицу

по счет второй задачки есть какиет мысли?!

[Ybn2]

Где ты n и m задаешь?

[MrMorozko]

упс)............