• Perl

my @array = (
   [ 1.0, 0.0, 0.0 ],
   [ 0.0, 1.0, 0.0 ],
   [ 0.0, 0.0, 1.0 ],
   "first three slots are a 3x3 identity matrix",
   "fourth and fifth slots contain strings"
);
   

• Ada

X : array (1 .. M, 1 .. N) of Float := (others => (others => 1.0));

• C

const int m = 2;
const int n = 3;
double x[m][n];

• C

double **x=malloc(m*sizeof(double *));
int i;
for(i=0;i<m;i++)
	x[i]=malloc(n*sizeof(double));

• Clojure

(for [i (range 1 (inc m))]
  (for [j (range 1 (inc n))]
    (* i j)))

• C++

std::vector<std::vector<double>> x (m, std::vector<double>(n));

• C++

::std::array<::std::array<int, n>, m> x;

• C#

var x = new double[m, n];

• D

auto x = new double[][](m, n);

• Dart

var x = new List.generate(m, (_) => new List(n));

• Dart

var x = new List.generate(m, (_) => new List.filled(n, 0));

• Elixir

x = for _ <- 1..m, do: for _ <- 1..n, do: 0.0

• Erlang

X = [{R * 1.0, C * 1.0} || R <- lists:seq(1, M), C <- lists:seq(1, N)].

• Fortran

  real, dimension(m,n) :: x

• Go

func make2D[T any](m, n int) [][]T {
	buf := make([]T, m*n)

	x := make([][]T, m)
	for i := range x {
		x[i] = buf[:n:n]
		buf = buf[n:]
	}
	return x
}

• Go

func make2D(m, n int) [][]float64 {
	buf := make([]float64, m*n)

	x := make([][]float64, m)
	for i := range x {
		x[i] = buf[:n:n]
		buf = buf[n:]
	}
	return x
}

• Go

const m, n = 3, 4
var x [m][n]float64

• Haskell

x = [ [ j**(1/i) | j <- [1..n] ] | i <- [1..m] ]

• JS

const x = new Array(m).fill(new Array(n).fill(Math.random()));

• JS

var x = [];
for (var i = 0; i < m; i++) {
  x[i] = [];
}

• Java

double[][] x = new double[m][n];

• Java

BigDecimal x[][] = new BigDecimal[m][n];

• Kotlin

val x = Array(m, { DoubleArray(n) })

• Lisp

(make-array (list m n)
   :element-type 'double-float
   :initial-element 1.0d0)

• Lua

local x = setmetatable({},{
   __index = function(t1,k1)
      t1[k1] = setmetatable({},{
         __index = function(t2,k2)
            t2[k2] = 0
            return t2[k2]
         end
      })
      return t1[k1]
   end
})

• Lua

x = {}
for i=1,m do
  x[i] = {}
  for j=1,n do
    x[i][j] = 0
  end
end

• Obj-C

NSArray *x=@[
  @[@0.1, @0.2, ... ], // n column values
  ... // m rows
];

• PHP

$x = array();
$x = array_pad($x, m, 1);
for($i = 0; $i < count($x); $i++){
  $x[$i] = array();
  $x[$i] = array_pad($x[$i],n,1);
}

• PHP

$m = 3;
$n = 4;

$x = array_map(
    function () use ($m) { return array_fill(0, $m, 0); },
    range(1, $n)
);

• Pascal

var _x: array[_m,_n] of Double;

• Python

x = [[0] * n for _ in range(m)]

• Python

x = []
for i in range(m):
    x.append([.0] * n)

• Python

x = [*repeat([.0] * n, m)]

• Ruby

x = Array.new(m) { Array.new(n) }

• Rust

let mut x = [[0.0; N] ; M];

• Rust

let mut x = vec![vec![0.0f64; N]; M];

• Scala

val x = Array.ofDim[Double](m,n)

• Scheme

(build-list m (lambda (x)
                (build-list n (lambda (y) 0))))

• Smalltalk

x := Matrix	
    rows: m
    columns: n
    element: 1.0

• VB

Dim x(m - 1, n - 1) As Double