Размещено 6 лет назад по предмету
Информатика
от elenapolevaya01
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
Помогите :(