Заполнить двумерный массив случайными числами от 10 до 100.

Question

Заполнить двумерный массив случайными числами от 10 до 100.

Answer 1

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var a:=MatrixRandom(5,5,10,100);
  Writeln(a)
end.

Тестовое решение:
[[26,15,69,59,40],[27,62,65,49,63],[99,80,37,44,40],[54,95,35,19,70],[45,31,28,88,68]]

Answer 2

Var m : array[1..5,1..5] of Integer;
i,j : Byte;
Begin
  Randomize;
  For i:=1 to 5 do
  Begin
   For j:=1 to 5 do
   Begin
     m[i,j]:=Random(91)+10;
     Write(m[i,j]:4);
   end;
  Writeln;
  end;
end.