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

156

278

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

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

Налим12

Информатика

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

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.

лия206

Информатика

4,4(5 оценок)

input()

Объяснение:

Функция input() даёт разрешение ввода пользователем.

Остальные функции имеют иное назначение.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.