Matematické Fórum

Spočítejte součet dvou celočíselných matic a výslednou matici vypište na standardní výstup. Pokud součet není definován, vypište řetězec 'nelze'. Můžete předpokládat, že žádný rozměr matice nepřesáhne 1000 a prvky vstupních matic i výsledné matice se vejdou do datového typu longint.

Vstup:
Vstupní matice načítejte ze souboru s názvem 'matice.in'. Soubor bude obsahovat obě vstupní matice. Zápis jedné matice je následující:

n m
a11 a12 ... a1m
a21   .     ...
...     .  ... 
an1 an2 ... anm

n (1 ≤ n ≤ 1000) je počet řádků matice, m (1 ≤ m ≤ 1000) je počet sloupců matice. Následuje n řádků po m číslech (aij), které určují jednotlivé prvky matice.
Obě matice jsou ve vstupním souboru uvedeny pod sebou, odděleny prázdným řádkem.

Výstup:
Pokud součet matic není definován, vypište na standardní výstup řetězec 'nelze', jinak vypište výslednou matici ve formátu uvedeném výše (taktéž na standardní výstup).


Příklad 1:
vstup:

2 3
9 0 4
5 8 6

2 3
10 12 33
32 4 15

výstup:

2 3
19 12 37
37 12 21 

Příklad 2:
vstup:

3 3
1 0 0
0 1 0
0 0 1

2 2
9 99
19 91

výstup:

nelze

¨program soucetmatic;
type    matice=array[1..1000,1..1000]of longint;
var     mat1:matice;
        mat2:matice ;
        matc:matice;
        a,b,c,d,e,f,i,j:integer;
        t:text ;
begin
assign(t,'matice.in') ;
reset(t);
read(t,a);
b:=a;
readln(t,a);
c:=a;
for i:=1 to b do
for j:=1 to a do
read(t,mat1[i,j]);
read(t,a);
d:=a ;
readln(t,a);
e:=a;
if (b<>d) or (c<>e) then
begin
write('nelze');
exit;
end
else
begin
for i:=1 to b do
for j:=1 to a do
begin
read(t,mat2[i,j]);
matc[i,j]:=mat1[i,j]+mat2[i,j];
end;
end;
writeln(b,' ',c);
for j:=1 to b do
begin
for i:=1 to a do
begin
write(matc[i,j],' ');
end;
writeln(' ');
end;
end.