Program Matrix Identitas Terbalik

Program Matrix_Identitas_Shagaf;

Uses

     Wincrt;
Var
    A,B,C:Array[1..5,1..5] Of Integer;
    X,Y: Integer;

Begin

     For X:= 1 To 5 Do
         Begin
         For Y:= 1 To 5 Do
             Begin
             A[X,Y]:=0;
             If X+Y=6 Then C[X,Y]:=1;
             Write (C[X,Y]:4);
             End;
         Writeln;
         End;
End.

Hasil Akhir (Print Screen):

Jawaban :

1. Program Untuk Perkalian Dua Matrix
2. Program Untuk Menampilkan Matrix Identitas Terbalik