Помогате с программирование пожалуйста. Created by Alita567. informatika-ru

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Пример работы:

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

Alita567 @Alita567

July 2022 1 8 Report

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

Answers & Comments

LRSM

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

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

0 votes Thanks 0

Answers & Comments

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

pomogite s fizroj pozhalujstae6a9d77fcd993e74517d4127c7ac8b9f 2594

vychislit krivolinejnyj integral 2 go roda po krivoj ot tochki do tochki

vychislit dvojnoj integral po oblasti ogranichennoj ukazannymi liniyami

najti reshenie zadachi koshi4848ef0d395acf533a173acfc75edca5 1616

рекомендуемые вопросы

Helpful Links

Helpful Social