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.
2 câu trả lời
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.
