Create a two-dimensional array at runtime: Difference between revisions

add fermat
(Add Red)
(add fermat)
Line 1,274:
[ [ { 0 0 } ] dip Mi,j . ] ! read the { 0 0 } element
bi ;</lang>
 
=={{header|Fermat}}==
<lang fermat>?m; {imput the dimensions of the array}
?n;
Array a[m,n]; {generate an array of m rows and n columns}
a[m\2, n\2] := m+n-1; {put some value in one of the cells}
!!a[m\2, n\2]; {display that entry}
@[a]; {delete the array}</lang>
 
=={{header|Forth}}==
781

edits