Даны два двумерных массива а и b вывести на экран тот из них у которого след меньше (след - сумма элементов главной диагонали)

var a: array[1..10,1..10]of integer; b: array[1..10,1..10]of integer; i,j,s1,s2: integer; beginfor i: =1 to 10 do for j: =1 to 10 do begin a[i,j]: =random(9)+1; b[i,j]: =random(9)+1; end; for i: =1 to 10 do begin for j: =1 to 10 do write(a[i,j],' '); if j=10 then writeln; end; writeln; for i: =1 to 10 do begin for j: =1 to 10 do write(b[i,j],' '); if j=10 then writeln; end; for i: =1 to 10 dofor j: =1 to 10 doif i=j then begins1: =s1+a[i,j]; s2: =s2+b[i,j]; end; writeln; if s1> s2 then for i: =1 to 10 do begin for j: =1 to 10 do write(a[i,j],' '); if j=10 then writeln; end elsefor i: =1 to 10 do begin for j: =1 to 10 do write(b[i,j],' '); if j=10 then writeln; end; end.

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end. 

700 иероглифов было в древнем письме