PROGRAM MATRIX

PROGRAM MATRIX;
uses
  WinCrt;
var
A,B,C:ARRAY[1..10,1..10] OF INTEGER;
X,Y,KOL,BAR:INTEGER;
BEGIN
FOR X:=1 TO 5 DO
BEGIN
FOR Y:=1 TO 5 DO
BEGIN
   C[X,Y]:=0;
   IF X+Y=6 THEN C[X,Y]:=1;
   WRITE(C[X,Y]:4);
 END;
 WRITELN;
 END;

 END.

Communitas IT Bangil

Tulisan By Munirmaestro

Selamat datang Di Blog Saya,Mohon LIKE atau Follow agar saling Kenal...Terimah kasih