Паскаль. Одномерный и двумерный массив.

[Женька Good]

Возникла проблема преобразования одномерного массива в двумерный.
Я в первой процедуре создал одномерный массив, а во второй пытаюсь его преобразовать, но получается так, что в каждой строке у меня одинаковые числа, например, 24 24 24 24 24
3 3 3 3 3
12 12 12 12 12
............
Вот, мои наработки:

Procedure OM(Var m1:mas1; Var m2:mas2; Var i:integer);
Var e,bd:integer;
a:mas2;
Begin
For i:=1 to 110 do begin
 m1[i]:=Random(60)-30;
 Write('| x',i:0,' = ',m1[i]:0,' |');
 end;
 Writeln;
end;

Procedure DM1(Var m2:mas2; m1:mas1; i:integer);
Begin
 For i:=10 to 13 do begin
  For j:=10 to 15 do begin
  m2[i,j]:=m1[i];
  Write(m2[i,j]:5);
  end;
  writeln;
 end;
end;

[Hacker19_90]

так первое
Зачем здесь

Procedure OM(Var m1:mas1; Var m2:mas2; Var i:integer); Одно не используется другое можно как локаль!
Var e,bd:integer; вот это
a:mas2; //для чего?
Begin
For i:=1 to 110 do begin
 m1[i]:=Random(60)-30;
 Write('| x',i:0,' = ',m1[i]:0,' |');
 end;
 Writeln;
end;

Потом что каасаемо

Procedure DM1(Var m2:mas2; m1:mas1; i:integer);
Begin
 For i:=10 to 13 do begin
  For j:=10 to 15 do begin
  m2[i,j]:=m1[i]; //счётчик идёт только по строкам! Не правильно в итоге по массиву пробегаете 
  Write(m2[i,j]:5);
  end;
  writeln;
 end;
end;

Да и тем более вы заграницы улезете!

[Женька Good]

Procedure OM(Var m1:mas1);
Var i:integer;
Begin
For i:=1 to 110 do begin
 m1[i]:=Random(60)-30;
 Write('| x',i:0,' = ',m1[i]:0,' |');
 end;
 Writeln;
end;

Procedure DM1(Var m2:mas2; m1:mas1);
Begin
 For i:=1 to 5 do begin
  For j:=1 to 3 do begin
  m2[i,j]:=m1[j+3*(i-1)];
  Write(m2[i,j]:5);
  end;
  writeln;
 end;
end;

Вот так вот работает, а как изменить m2[i,j]:=m1[j+3*(i-1)], чтобы числа из одномерного массива начинались браться с 10 элемента, а не с 1-ого?

[Hacker19_90]

ну вот так

Procedure DM1(Var m2:mas2; m1:mas1);
var
    k: integer;
Begin
   k := 10;
 For i:=1 to 5 do begin
  For j:=1 to 3 do begin
  m2[i,j]:=m1[k];
  Write(m2[i,j]:5);
    Inc(k);
  end;
  writeln;
 end;
end;

[Женька Good]

Сообщение от Hacker19_90

ну вот так

    Inc(k);

что вот это значит?

[Hacker19_90]

На будущее можно вот тут спросить
ОН ВСЁ ЗНАЕТ
Inc(k) То же самое что k := k+1;

[vovken1997]

k:=k+1;
Вот это называется инкремент. Увеличение числа на единицу