Паскаль. 12.дан массив а(3*4). найти сумму первых отрицательных элементов в каждом столбце. 13.даны два массива а(3*3) и в(3*3). вывести на экран тот из них, у которого меньше сумма элементов главной диагонали. 17.дан массив а(3*4). заменить все отрицательные элементы на противоположные.

Program asd; uses crt; const n=3; const m=3; var  a,b: array [1..n, 1..m] of integer;   k,s,i,j,q: integer; begin clrscr; for i: =1 to n do  begin  for j: =1 to m do    begin    a[i,j]: =random(9);     write(' ',a[i,j]: 2);     end;       writeln;       end;   for i: =1 to n do    begin    for j: =1 to m do    begin      if i=j then s: =s+a[i,i];     end;     end;     writeln('matriza a: ',s);   for i: =1 to n do  begin    for j: =1 to m do      begin      b[i,j]: =random(9);     write(' ',b[i,j]: 2);     end;

{12.  дан массив а(3*4). найти сумму первых отрицательных элементов в каждом столбце.}uses crt; const n=3;           m=4; var a: array [1..n,1..m] of real;       x,y: integer;       min,sum: real; begin       sum: =0;       for x: =1 to n do begin           for y: =1 to m do begin               a[x,y]: =random(10)-5;               write(a[x,y]: 3: 0);           end;       writeln;       end;       writeln;       for y: =1 to m do begin           min: =0;           for x: =n downto 1 do               if a[x,y]< 0 then min: =a[x,y];               sum: =sum+min;       end;       writeln;       writeln('сумма первых отрицательных элементов в каждом столбце: ',sum); end.{ 13.  даны два массива а(3*3) и в(3*3). вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.}uses crt; const n=3; var a,b: array [1..n,1..n] of integer;       x,y,sum1,sum2: integer; begin      sum1: =0; sum2: =0;       for x: =1 to n do begin          for y: =1 to n do begin              a[x,y]: =random(10);               if x=y then sum1: =sum1+a[x,y];               write(a[x,y]: 3);           end;       writeln;       end;       writeln;       for x: =1 to n do begin          for y: =1 to n do begin              b[x,y]: =random(10);               if x=y then sum2: =sum2+b[x,y];               write(b[x,y]: 3);           end;       writeln;       end;       if sum1< > sum2 then begin      writeln('сумма элементов главной диагонали меньше в массиве: ');       for x: =1 to n do begin          for y: =1 to n do              if sum1> sum2 then write(b[x,y]: 3)              else write(a[x,y]: 3);           writeln;       end;       end;       if sum1=sum2 then writeln('сумма элементов главной диагонали одинакова'); end.{ 17.дан массив а(3*4). заменить все отрицательные элементы на противоположные.} uses crt; const n=3;           m=4; var a: array [1..n,1..m] of real;       x,y: integer; begin       for x: =1 to n do begin           for y: =1 to n do begin               a[x,y]: =random(10)-5;               write(a[x,y]: 3: 0);               if a[x,y]< 0 then a[x,y]: =-a[x,y];           end;       writeln;       end;       writeln;       for x: =1 to n do begin           for y: =1 to n do               write(a[x,y]: 3: 0);       writeln;       end; end.

1)6 байт 2)4000000 байт 3)7 байт 4)6000 байт