генерация матриц с использованием процедуры

[Olgaandsasha]

сгенерировать две матрицы А и В размером n и m случайных чисел в диапазоне [0,121]. генерацию осуществить с помощью процедуры.
подскажите как это делается?

[Hacker19_90]

эм...
в зависимости от того , какие средства предполагается использовать.
Динамика, или статика?

[Olgaandsasha]

ничего не указано. вот это все задание.

[Hacker19_90]

ну а собственные предпочтения какие?

[Olgaandsasha]

динамика лучше

[Hacker19_90]

к примеру на PascalABC.Net

program example_dyn_array;
uses crt;
type
  TDynArrCols = array of integer;
  TDynArr =  array of TDynArrCols;
var
  A, B: TDynArr;
  i, j: integer;

procedure Generation (var _mas: TDynArr; const rows, cols: integer; 
                      const rangeA, rangeB: integer);
var
  i, j: integer;
begin
   SetLength(_mas, rows);
   for i := 0 to rows - 1 do
     SetLength(_mas[i], cols);
   randomize;
   for i := 0 to rows - 1 do
     for j := 0 to cols - 1 do
       _mas[i,j] := random(rangeB - rangeA + 1) + rangeA;
end;

begin
  clrscr;
  generation (A, 5, 3, 0, 121);
  for i := 0 to 4 do
  begin
    for j := 0 to 2 do
      Write (A[i,j]:5);
    WriteLn;
  end;
  ReadKey;
end.

[Olgaandsasha]

а можно просто в паскале?

[TinMan]

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

а можно просто в паскале?

А что вы подразумеваете под этим самым "просто Паскалем", уважаемые Оля с Сашей?

Вот вы приходите в магазин автомобилей. Вам говорят - вот Мерс 600, вот BMW всякие там, вот Volvo, Toyota, ... А вы что отвечаете? "Дайте нам просто машину"? Так что ли?..

Пример, приведенный Хакером прекрасно работает и во FreePascal тоже. А что именно ВАМ надо - хоть бы сказали, что ли уж..

И вообще это хамство - не сказать спасибо, когда дали код готовый..

[Olgaandsasha]

Спасибо, конечно.