Вопрос по информатике:

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

Ответ:

Спасибо большое

Ответ:

Пожалуйста)

Ответ:

1. vara:array[1..5,1..5] of integer;i,j,sum,min,n:Integer;beginmin:=25;for i:=1 to 5 dobeginWriteln('Введите места ', i,' спортсмена');for j:=1 to 5 doRead(a[i,j]);end;for i:=1 to 5 dobeginfor j:=1 to 5 dosum:=sum+a[i,j];if sum<min then beginmin:=sum;n:=i;sum:=0;end;end;Writeln(n, ' спортсмен лучший');end.2. vara:array[1..20,1..20] of integer;sum:array[1..20] of integer;i,j,n,k:integer;beginWriteln('Введите количество команд');Readln(n);For i:=1 to n dofor j:=1 to n doif i = j then a[i,j]:=0 else beginWriteln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');Read(a[i,j]);end;For i:=1 to n dofor j:=1 to n dosum[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.vara:array[1..20,1..20] of integer;sum:array[1..20] of integer;i,j,n:integer;beginWriteln('Введите количество команд');Readln(n);For i:=1 to n dofor j:=1 to n doif i = j then a[i,j]:=0 else beginWriteln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');Read(a[i,j]);end;For i:=1 to n dofor j:=1 to n dosum[i]:= sum[i]+ a[i,j];for i:=1 to n doif sum[i] = 3*(n-1) then Write(i, ' ');Write(' команд(а,ы) прошли чемпионат без поражений!');end.4.vara:array[1..20,1..20] of integer;sum:array[1..20] of integer;i,j,n,k:integer;beginWriteln('Введите количество команд');Readln(n);For i:=1 to n dofor j:=1 to n doif i = j then a[i,j]:=0 else beginWriteln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');Read(a[i,j]);end;For i:=1 to n dofor j:=1 to n doif a[i,j]<>1 thensum[i]:= sum[i]+ a[i,j];for i:=1 to n doif sum[i] > (3*(n-1))/2 then k:=k+1;Write(k,' команд выиграли более половину игр');end.