Program Array

uses wincrt;
type array2D=array[1..60,1..60] of integer;
type matriks=record

M:array[1..60,1..60] of integer;
b,k:integer;

end;

function olah_matriks(M:matriks): array2D;
var

i, j:integer;
mout:array[1..60, 1..60]of integer;

begin

for i:=1 to M.k do
begin

for j:=1 to M.b do
begin

mout[i,j]:=M.M[j,M.k-i+1];

end;

end;

end;
var

M:matriks;

i, j:integer;

arr:array[1..60,1..60] of integer

begin

write('Silahkan masukkan banyak baris matriks yang anda inginkan : ');
readln(M.b);
write('Silahlkan masukkan banyak kolom matriks yang anda inginkan: ');
readln(M.k);

for i:=1 to M.b do
for j:=1 to M.k do
begin
write('Silahkan Masukkan data pada elemen ke (',i,',',j,') : ');
readln(M.M[i,j]);
end;

olah_matriks(M);
arr:=olah_matriks;

for i:=1 to M.b do
begin
writeln;
for j:=1 to M.k do
begin
write(' ',arr[i,j],' ');
end;
end;

end.