Const n=4; var a: array[1..10,1..10] of integer; j,i,s: integer; begin randomize; writeln('случайная матрица: '); for i: =1 to 3 do begin for j: =1 to 3 do begin a[i,j]: =random(51)-25; write(a[i,j]: 5); end; writeln end; j: =8; for i: =1 to 3 do begin j: =j-1; if i+j> n+1 then s: =(i+j> n+1); end; writeln('сумма элементов побочной диагонали: ',s); readln end. выдает ошибку нельзя преобразовать тип boolean к integer : (

const

   n = 3;

var

   a: Array[1..n, 1..n] of Integer;

   j, i, s: integer;

begin

   Randomize;

   Writeln('Случайная матрица:');

   for i := 1 to n do

   begin

       for j := 1 to n do

       begin

           a[i, j] := Random(51) - 25;

           Write(a[i, j]:5);

       end;

       Writeln

   end;

   for i := 1 to n do

   begin

       j := n + 1 - i;

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

   end;

   Writeln('Сумма элементов побочной диагонали: ', s);

   Readln

end.