Contact: aviboots(AT)netvision.net.il
39,845 questions
51,766 answers
573 users
Program Example; var arr: array [0..2, 0..3] of integer; i, j: integer; begin for i := 0 to 2 do begin for j := 0 to 3 do write(arr[i, j]:2, ' '); writeln; end; end. (* run: 0 0 0 0 0 0 0 0 0 0 0 0 *)