Question

Помогате с программирование пожалуйста

Answer 1

PascalABC.NET ₃.₆.₃.₂₅₇₇

Ответ:

• ##
•  var b := True;
•  var n := ReadInteger('n:');
•  var a := MatrRandom(n, n, 0, 100);
•  for var i := 0 to n-1 do
•  begin
•    for var j := 0 to i-1 do
•      if a[i,j]<>a[j,i] then
•      begin
•        b := False;
•        break
•      end;
•    if not b then break
•  end;
•  a.Print;
•  b.Print

Пример работы: