Question

Дан массив А1(n,m) и массив А2(x,y). Найти сумму массивов А1 и А2. (На паскале )​

Answer 1

program ArraySum;

var

   A1: array[1..4, 1..4] of integer = (

       ( 7, 12,  1, 14),

       ( 2, 13,  8, 11),

       (16,  3, 10,  5),

       ( 9,  6, 15,  4)

   );

   A2: array[1..4, 1..4] of integer = (

       (17,  4,  3, 14),

       ( 6, 12, 13,  9),

       (10,  8,  9, 13),

       ( 5, 17, 16,  2)

   );

   sum: array[1..4, 1..4] of integer;

   x, y: integer;

begin

   for x := 1 to 4 do

       for y := 1 to 4 do

           sum[x, y] := A1[x, y] + A2[x, y];

   

   for x := 1 to 4 do

   begin

       for y := 1 to 4 do

       begin

           write(sum[x, y]);

           write(', ');

       end;

       writeln;

   end;

end.