PascalABC.Netconst m=8; n=11;var a,b,c:array[1..m,1..n] of integer; i,j:integer;begin Randomize; Writeln('Исходный массив A'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Writeln('Исходный массив B'); for i:=1 to m do begin for j:=1 to n do begin b[i,j]:=Random(41)-20; Write(b[i,j]:4) end; Writeln end; Writeln('Результирующий массив С'); for i:=1 to m do begin for j:=1 to n do begin c[i,j]:=a[i,j]+b[m-i+1,n-j+1]; Write(c[i,j]:4) end; Writeln endend.
Тестовое решение:Исходный массив A -23 -14 -9 0 -13 -13 14 18 9 16 15 -3 21 -4 24 -23 -9 19 9 -16 -14 23 17 -25 -19 -25 8 -7 10 -23 -6 -23 -20 -20 -3 9 12 6 -17 3 -24 5 -25 -11 18 -21 -4 -20 -22 19 5 -15 -23 14 -2 -20 -5 -10 -7 -14 4 -4 -18 7 -3 13 -8 15 24 -10 -10 11 11 -20 -18 6 23 2 -17 -23 5 2 -11 17 -3 -16 25 -8Исходный массив B 6 -6 -10 -3 -10 18 19 4 -3 -5 14 -17 10 5 -15 11 2 16 0 18 5 14 -14 15 -14 -7 6 -18 -15 -7 -13 -10 11 -20 -14 5 -19 16 -1 11 -15 2 -13 3 8 -18 -8 19 -4 1 -9 2 7 -18 9 12 -12 -4 -9 17 -8 17 -1 -16 -13 4 -7 10 -1 0 9 7 -3 9 12 -18 6 3 -14 -17 -19 8 6 5 -18 6 3 8Результирующий массив С -15 -11 -3 -18 -8 -7 22 -1 -8 2 18 3 3 8 33 -26 -2 28 9 -17 -4 16 21 -38 -35 -26 25 -15 27 -32 -10 -35 -8 -11 -21 16 14 -3 -16 -1 -5 -3 -43 -3 21 -34 -2 -35 -11 18 21 -34 -18 0 -22 -9 -15 -23 -14 -29 -14 2 -25 -7 12 -1 6 20 42 -10 6 13 22 -35 -13 16 6 16 -22 -26 9 21 7 7 -6 -26 19 -2