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

Bởi

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.

0 bình luận về “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”

  2. 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.

    Bình luận

Viết một bình luận