Const n=4; var a: Array[1..10,1..10] of Integer; j,i,s:integer; begin Randomize;...

Question

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 Помогите :(

Comments

такое ощущение что вы вообще не понимаете что вы пишите

Answer 1

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.