Uses Crt;
Var Tabel : Array[1..3,1..3] of Integer;
i,j : Integer;
Begin
ClrScr;
writeln('Matrix 3 x 3 ');
{Data Tabel Matrix tiap element}
Tabel[1,1]:=1;
Tabel[1,2]:=2;
Tabel[1,3]:=7;
Tabel[2,1]:=3;
Tabel[2,2]:=4;
Tabel[2,3]:=8;
Tabel[3,1]:=5;
Tabel[3,2]:=6;
Tabel[3,3]:=9;
{proses cetak}
For I := 1 to 3 Do
Begin
For J:= 1 to 3 Do
Begin
Write(Tabel[i,j]:6);
End;
writeln;
End;
Readln;
End.
dan ini adalah hasil dari codingan tersebut
selamat mencoba :)
