MATERI PASCAL

program matrik;

uses wincrt;

var a:array[1..10,1..10] of real;

    i,j,baris,kolom:integer;

begin

write('ukuran matrik mxn ');

readln(baris,kolom);

writeln('memasukkan elemen matrik');

writeln(' ');

for i:=1 to baris do

begin

writeln('baris ke-',i);

for j:=1 to kolom do 
read(a[i,j]);

writeln;

end;

writeln('hasil matrik');

for i:=1 to baris do

begin

for j:=1 to kolom do

write(a[i,j]:0:0,' ');

writeln;

end;

end.