program matricu_sudetis;
var i, j, a, b, n, x1, y1, x2, y2 : integer;
m1:array [1 .. 10,1 .. 10] of integer;
m2:array [1 .. 10,1 .. 10] of integer;
m3:array [1 .. 10,1 .. 10] of integer;
begin
Writeln ('iveskite matricos eiluciu ir stulpeliu skaiciu:');
read (a, b);
Writeln ('iveskite matricos elementus:');
for i:=1 to a do
for j:=1 to b do
begin
write('m1[', i, ',',j,']=');
read (m1[i,j]);
end;
writeln('Duota matrica: ');
for i:=1 to a do
begin
for j:=1 to b do
write(m1[i, j]:5);
writeln;
end;
x1:=a-1; y1:=b-1;
Writeln ('iveskite matricos eiluciu ir stulpeliu skaiciu:');
read (a, b);
Writeln ('iveskite 2-os matricos elementus:');
for i:=1 to a do
for j:=1 to b do
begin
write('m2[', i, ',',j,']=');
read (m2[i,j]);
end;
writeln('Duota matrica: ');
for i:=1 to a do
begin
for j:=1 to b do
write( m2[i,j]:5);
writeln;
end;
x2:=a-1; y2:=b-1;
writeln ('sudeta matrica:');
if (y1=x2)
then
begin
for i:=1 to x1 do
begin
for j:=1 to y2 do
begin
m3[i,j]:=0;
for n:=1 to x2 do
begin
m3[i,j]:=m3[i,j]+ ( m1[i,n] + m2[n,j]);
end;
write(m3[i, j]:5);
end;
writeln;
end;
end
else
begin
writeln('negalima sudeti');
end;
{writeln('Gauta matrica: ');
for i := 1 to a do
begin
for j := 1 to b do
write(m3[i, j]:5);
writeln;
end;}
readln;
readln;
end.