uses crt;
const n_i=2;
n_j=2;
n_k=1;
var
A: array [1..n_i,1..n_j] of integer;
B: array [1..n_j,1..n_k] of integer;
C: array [1..n_i,1..n_k] of integer;
i,j,k:integer;
begin
writeln('penetapan nilai matriks A');
for i:=1 to n_i do
for j:=1 to n_j do
begin
write('baris ke-',i,'kolom ke-',j,' :');
readln(A[i,j]);
end;
writeln('penetapan nilai matriks B');
for j:=1 to n_j do
for k:=1 to n_k do
begin
write('baris ke-',j,'kolom ke-',k,' :');
readln(B[j,k]);
end;
writeln('Perhitungan sedang dilakukan ..');
for i:=1 to n_i do
for k:=1 to n_k do
begin
C[i,k] :=0;
for j:=1 to n_j do
C[i,k] :=C[i,k]+A[i,j] * B[j,k];
end;
writeln('Maka nilai matriks C');
for i:=1 to n_i do
begin
for k:=1 to n_k do
write(C[i,k]:4);
writeln;
end;
readln;
end.
const n_i=2;
n_j=2;
n_k=1;
var
A: array [1..n_i,1..n_j] of integer;
B: array [1..n_j,1..n_k] of integer;
C: array [1..n_i,1..n_k] of integer;
i,j,k:integer;
begin
writeln('penetapan nilai matriks A');
for i:=1 to n_i do
for j:=1 to n_j do
begin
write('baris ke-',i,'kolom ke-',j,' :');
readln(A[i,j]);
end;
writeln('penetapan nilai matriks B');
for j:=1 to n_j do
for k:=1 to n_k do
begin
write('baris ke-',j,'kolom ke-',k,' :');
readln(B[j,k]);
end;
writeln('Perhitungan sedang dilakukan ..');
for i:=1 to n_i do
for k:=1 to n_k do
begin
C[i,k] :=0;
for j:=1 to n_j do
C[i,k] :=C[i,k]+A[i,j] * B[j,k];
end;
writeln('Maka nilai matriks C');
for i:=1 to n_i do
begin
for k:=1 to n_k do
write(C[i,k]:4);
writeln;
end;
readln;
end.