viết chương trình pascal sử dụng mảng hai chiều, in ra màn hình các số nguyên từ 1 đến 100 sao cho cứ 10 số thì xuống dòng.
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
21 22 23 24 25 26 27 28 28 30
.
.
.
.
.
91 92 93 94 95 96 97 98 99 100.
Program MT; Uses crt; Var A:array[1..100,1..100] of longint; i,j,n: longint; Begin Clrscr; n:=1; For i:=1 to 10 do For j:=1 to 10 do Begin A[i,j]:=n; inc(n); End;
For i:=1 to 10 do Begin For j:=1 to 10 do Write(A[i,j]:5); Writeln End; Readln End.