È dato il seguente programma:
Program E8(Input, Output); Const nrig=5; ncol=5; Var i, j: Integer; m : Array[0..nrig-1, 0..ncol-1] Of Integer; Begin For i:=0 to nrig-1 do For j:=0 to ncol-1 do m[i, j]:=i*j+j; For j:=ncol-1 downto 0 do Begin For i:=nrig-1 DownTo 0 Do Write(m[i, j], ' '); Writeln() End End.
Cosa viene visualizzato a video dall’esecuzione del programma?
- 20 16 12 8 4
15 12 9 6 3
10 8 6 4 2
5 4 3 2 1
0 0 0 0 0 - 0 0 0 0 0
1 2 3 4 5
2 4 6 8 10
3 6 9 12 15
4 8 12 16 20 - 4 8 12 16 20
3 6 9 12 15
2 4 6 8 10
1 2 3 4 5
0 0 0 0 0 - 0 0 0 0 0
1 1 1 1 1
2 2 2 2 2
3 3 3 3 3
4 4 4 4 4