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

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.

Answer 2

Проблема возникает из-за того, что в вашем коде вы используете выражение (i+j>n+1), которое вычисляется как логическое (boolean) значение (true или false). Затем вы пытаетесь присвоить это логическое значение переменной s, которая объявлена как тип integer, что и вызывает ошибку.

Для исправления этой проблемы вам следует изменить вычисление значения s. Вам нужно найти сумму элементов побочной диагонали матрицы. Для этого используйте следующий код:

pascalCopy code
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;

  s := 0; // Инициализируем переменную s нулем

  For i := 1 to 3 do 
  begin
    j := 8;
    j := j - 1;
    if i + j > n + 1 then 
      s := s + a[i, j]; // Накапливаем сумму элементов побочной диагонали
  end;

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

Теперь значение s накапливается суммой элементов побочной диагонали, и ошибки преобразования типов больше не должно возникать.