3. таблица футбольного чемпионата задана квадратной матрицей, в которой все элементы главной диагонали являются нечисловыми элементами, а остальные элементы определяются по правилу: 2- выигрыш, 1- ничья, 0- проигрыш. определить названия команд, прошедших чемпионат без поражений. определить лидера.

165

482

Посмотреть ответы 2

Ответы на вопрос:

Сахарокcom

Информатика

4,6(78 оценок)

вот программа на языке pascalabc

uses 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.