Получить массив, каждый элемент которого равен сумме соответствующих элементов двух исходных - PascalABC.NET - Ответ 5454459

program FORUM;
uses crt;
type mass=array[1..12,1..12] of integer;
var a,b,c,c1:mass;
f:text;
i,j,max,max2:integer;
Begin
assign(f,'1111111.txt');
rewrite(f);
clrscr;
randomize;
Writeln(f,'Matrix A');
     For i:=1 to 10 do begin
         For j:=1 to 12 do begin
max:=-maxint;
max2:=-maxint;
         a[i,j]:=random(90)-45;
         b[i,j]:=random(90)-45;
         If abs(a[i,j])>max then max:=a[i,j];
         If abs(b[i,j])>max2 then max2:=b[i,j];
         If max<max2 then c[i,j]:=max2
         else c[i,j]:=max;
         write(f,a[i,j]:5);
         end;
         writeln(f);
         end;
Writeln(f,'matrix B');
     For i:=1 to 10 do begin
         For j:=1 to 12 do begin
         write(f,b[i,j]:5);
         end;
         writeln(f);
         end;
Writeln(f,'Matrix C');
 For i:=1 to 10 do begin
         For j:=1 to 12 do begin
         write(f,c[i,j]:5);
         end;
         writeln(f);
         end;
 Writeln(f,'Matrix C1');
    For i:=1 to 10 do begin
         For j:=1 to 12 do begin
           c1[i,j]:=a[i,j]+b[i,j];
           write(f,c1[i,j]:5);
         end;
         writeln(f);
         end;
end.