Matrix Dyn



Dynamic Matrix
Pas2JS pascal source code
var a := new Integer[3, 5]; procedure WriteLnA; var x, y : Integer; begin for y:=0 to 4 do begin for x:=0 to 2 do begin WriteLn(a[x, y]); WriteLn(','); end; WriteLn(''); end; end; WriteLnA; for var x := 0 to a.High do for var y := 0 to a[x].High do a[x, y]:=x*10+y+1; WriteLnA; for var x := 0 to a.High do for var y := 0 to a[x].High do a[x, y]:=a[x, y]*2; WriteLnA; { <<< CONSOLE OUTPUTS >>> 0,0,0, 0,0,0, 0,0,0, 0,0,0, 0,0,0, 1,11,21, 2,12,22, 3,13,23, 4,14,24, 5,15,25, 2,22,42, 4,24,44, 6,26,46, 8,28,48, 10,30,50, }