ClubPoker-DNA

uses wincrt;

var

tabel:array[1..6,1..6] of integer;

m,n,i,j:integer;

begin

write('Input baris: ');readln(m);

write('Input kolom: ');readln(n);

writeln('Matriks yg anda input berukuran: ',m,'x',n);

for i:=1 to m do

begin

for j:=1 to n do

begin

write('Tabel',i,'.',j,' ');readln(tabel[i,j]);

writeln;

end;

end;

for i:=1 to m do

begin

for j:=1 to n do

write(tabel[i,j],' ');

writeln;

end;

end.

Silakan coba...

>.<