lets STUDY

program dimensi;
uses wincrt;
var
x:array [1..100,1..100] of integer;
p,l,i,j :integer;
begin
write ('p = '); readln (p);
write ('l = ');readln (l);
for i:=1 to p do
for j:=1 to l do
readln (x[i,j]);
writeln;
writeln ('bentuk matriknya');
for i:=1 to l do
begin
for j:=1 to p do
write (x[j,i],' ');
writeln;
end;
writeln ('bentuk matrik transpose');
for i:=1 to p do
begin
for j:=1 to l do
write (x[j,i],' ');
writeln;
end;
end.program dimensi;
uses wincrt;
var
x:array [1..100,1..100] of integer;
p,l,i,j :integer;
begin
write ('p = '); readln (p);
write ('l = ');readln (l);
for i:=1 to p do
for j:=1 to l do
readln (x[i,j]);
writeln;
writeln ('bentuk matriknya');
for i:=1 to l do
begin
for j:=1 to p do
write (x[j,i],' ');
writeln;
end;
writeln ('bentuk matrik transpose');
for i:=1 to p do
begin
for j:=1 to l do
write (x[j,i],' ');
writeln;
end;
end.