Question

1. Результат соревнований по пятиборью представлен в виде матрицы 5х5 (5 спортсменов и 5 видов соревнований), в которых указаны места, занятые каждым спортсменом в данном виде. Найти лучшего спортсмена (наименьшая сумма мест). Таблица футбольного чемпионата задана квадратной матрицей порядка n, в которой все элементы, принадлежащие главной диагонали, равны нулю, а каждый элемент, не принадлежащий главной диагонали, равен 3, 1 или 0 (число очков, набранных в игре: 3 - выигрыш, 1 - ничья, 0 - проигрыш): 2. Найти число команд, имеющих больше побед, чем поражений; 3. Определить номера команд, прошедших чемпионат без поражений; 4. Выявить, имеется хотя бы одна команда, выигравшая более половины игр. НА ЯЗЫКЕ Pascal/

Answer 1

1.
var
a:array[1..5,1..5] of integer;
i,j,sum,min,n:Integer;
begin
min:=25;
for i:=1 to 5 do
begin
Writeln('Введите места ', i,' спортсмена');
for j:=1 to 5 do
Read(a[i,j]);
end;

for i:=1 to 5 do
begin
for j:=1 to 5 do
sum:=sum+a[i,j];
if sum<min then
begin
min:=sum;
n:=i;
sum:=0;
end;
end;
Writeln(n, ' спортсмен лучший');
end.

2.
var
a:array[1..20,1..20] of integer;
sum:array[1..20] of integer;
i,j,n,k:integer;
begin
Writeln('Введите количество команд');
Readln(n);
For i:=1 to n do
for j:=1 to n do
if i = j then a[i,j]:=0 else
begin
Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');
Read(a[i,j]);
end;
For i:=1 to n do
for j:=1 to n do
sum[i]:= sum[i]+ a[i,j];

for i:=1 to n do
if sum[i]>(3*(n-1)/2) then k:=k+1;

Writeln(k ,' команд(а,ы) имеют больше побед, чем поражений');
end.

3.
var
a:array[1..20,1..20] of integer;
sum:array[1..20] of integer;
i,j,n:integer;
begin
Writeln('Введите количество команд');
Readln(n);
For i:=1 to n do
for j:=1 to n do
if i = j then a[i,j]:=0 else
begin
Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');
Read(a[i,j]);
end;
For i:=1 to n do
for j:=1 to n do
sum[i]:= sum[i]+ a[i,j];

for i:=1 to n do
if sum[i] = 3*(n-1) then Write(i, ' ');
Write(' команд(а,ы) прошли чемпионат без поражений!');
end.

4.
var
a:array[1..20,1..20] of integer;
sum:array[1..20] of integer;
i,j,n,k:integer;
begin
Writeln('Введите количество команд');
Readln(n);
For i:=1 to n do
for j:=1 to n do
if i = j then a[i,j]:=0 else
begin
Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');
Read(a[i,j]);
end;
For i:=1 to n do
for j:=1 to n do
if a[i,j]<>1 then
sum[i]:= sum[i]+ a[i,j];

for i:=1 to n do
if sum[i] > (3*(n-1))/2 then k:=k+1;
Write(k,' команд выиграли более половину игр');
end.

Answer 2

Для решения данных задач на языке Pascal, необходимо реализовать соответствующие процедуры и функции. Вот пример кода, решающего данные задачи:

1. Найти лучшего спортсмена (наименьшая сумма мест):

pascalCopy code
const
  MAX = 5;

type
  TMatrix = array[1..MAX, 1..MAX] of Integer;

function FindBestAthlete(matrix: TMatrix): Integer;
var
  i, j, minSum, currentSum: Integer;
begin
  minSum := MAX * MAX * 10; // Задаем начальное максимальное значение
  for i := 1 to MAX do
  begin
    currentSum := 0;
    for j := 1 to MAX do
      currentSum := currentSum + matrix[i, j];
    if currentSum < minSum then
      minSum := currentSum;
  end;
  Result := minSum;
end;

2. Найти число команд, имеющих больше побед, чем поражений:

pascalCopy code
function CountTeamsWithMoreWins(matrix: TMatrix): Integer;
var
  i, j, wins, losses, count: Integer;
begin
  count := 0;
  for i := 1 to MAX do
  begin
    wins := 0;
    losses := 0;
    for j := 1 to MAX do
    begin
      if i <> j then
      begin
        if matrix[i, j] = 3 then
          wins := wins + 1
        else if matrix[i, j] = 0 then
          losses := losses + 1;
      end;
    end;
    if wins > losses then
      count := count + 1;
  end;
  Result := count;
end;

3. Определить номера команд, прошедших чемпионат без поражений:

pascalCopy code
procedure TeamsWithoutLosses(matrix: TMatrix);
var
  i, j: Integer;
  teamNumber: array[1..MAX] of Integer;
  count: Integer;
begin
  for i := 1 to MAX do
  begin
    count := 0;
    for j := 1 to MAX do
    begin
      if matrix[i, j] = 0 then
      begin
        count := count + 1;
        Break;
      end;
    end;
    if count = 0 then
    begin
      teamNumber[i] := i;
      Write(i, ' ');
    end;
  end;
end;

4. Выявить, имеется ли хотя бы одна команда, выигравшая более половины игр:

pascalCopy code
function HasTeamWonMoreThanHalfGames(matrix: TMatrix): Boolean;
var
  i, j, wins, totalGames: Integer;
begin
  for i := 1 to MAX do
  begin
    wins := 0;
    totalGames := 0;
    for j := 1 to MAX do
    begin
      if i <> j then
      begin
        if matrix[i, j] = 3 then
          wins := wins + 1;
        totalGames := totalGames + 1;
      end;
    end;
    if wins > (totalGames / 2) then
    begin
      Result := True;
      Exit;
    end;
  end;
  Result := False;
end;

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