3. Таблица футбольного чемпионата задана квадратной матрицей, в которой все…

Вот программа на языке PASCALABCuses crt; const max=20; var a: array [1… max,1… max] of byte; n,i,j,k,s,s1,s2,s3: integer; x: char; begin x: =x; repeat Writeln ('vvedite kol-vo komand N'); Readln (N); until N in [1… max]; for i: =1 to N do for j: =1 to N do A[i,j]: =random (3); For i: =1 to N do begin for j: =1 to N do if i=j then write (#204:4) else Write (a[i,j]: 4); writeln; end; writeln ('íîìåðà êîìàíä, èìåþùèõ áîëüøå ïîáåä íà ÷óæîì ïîëå'); k: =0; s: =0; s3: =0; for i: =1 to n do begin for j: =1 to n do begin if a[i,j]=2 then s1: =s+1; if a[j,i]=0 then s2: =s3+1; s: =s1; s3: =s2; end; end; if s2>s1 then begin writeln ('Nomer komandy — ',i,' Kol. pobed=',s2); k: =1 end; if k=0 then writeln ('takih komand net'); end.