Create a two-dimensional array at runtime: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
| Line 2,186: | Line 2,186: | ||
cols: 4 |
cols: 4 |
||
[[0, 0, 0, 0], [0, 0, 1, 0], [0, 0, 0, 0]] |
[[0, 0, 0, 0], [0, 0, 1, 0], [0, 0, 0, 0]] |
||
</pre> |
|||
=={{header|Simula}}== |
|||
<lang simula>BEGIN |
|||
INTEGER N,M; |
|||
M := ININT; |
|||
N := ININT; |
|||
BEGIN |
|||
INTEGER ARRAY A(1:M,1:N); |
|||
A(M,N) := 99; |
|||
OUTINT(A(M,N),0); |
|||
OUTIMAGE; |
|||
END; |
|||
! ARRAY A OUT OF SCOPE ; |
|||
END.</lang> |
|||
{{in}} |
|||
<pre>10 20</pre> |
|||
{{out}} |
|||
<pre> |
|||
99 |
|||
</pre> |
</pre> |
||