Работа 3.9 Упр.19 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 19. N спортсменов-многоборцев принимают участие в соревнованиях по М видам спорта. По каждому виду спорта спортсмен набирает определенное количество очков. Вычислить, сколько очков в сумме набрал каждый спортсмен после окончания соревнований. Вычислить разницу в очках для спортсменов, занявших первое и последнее места. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-9/19 98

Подробный ответ

Сначала введём результаты каждого спортсмена по всем видам спорта и запишем их в двумерный массив. Затем для каждого спортсмена найдём сумму набранных очков. После этого определим максимальную и минимальную суммы и вычислим разницу между ними.

const
  nmax = 20;
var
  n, m, i, j, min, max, sum: integer;
  a: array[1..nmax, 1..nmax] of integer;
begin
  write(‘Сколько спортсменов участвует в соревнованиях? ‘);
  readln(n);
  write(‘Сколько видов спорта? ‘);
  readln(m);
  for i := 1 to n do
  begin
    writeln(‘Введите результаты ‘, i, ‘-го спортсмена:’);
    for j := 1 to m do
    begin
      write(j, ‘-й вид спорта: ‘);
      readln(a[i, j]);
    end;
  end;
  sum := 0;
  for j := 1 to m do
    sum := sum + a[1, j];
  max := sum;
  min := sum;
  for i := 1 to n do
  begin
    sum := 0;
    for j := 1 to m do
      sum := sum + a[i, j];
    if sum > max then
      max := sum;
    if sum < min then
      min := sum;
    writeln(i, ‘-й спортсмен набрал ‘, sum, ‘ очков.’);
  end;
  writeln(‘Чемпион набрал ‘, max, ‘ очков.’);
  writeln(‘Худший спортсмен набрал ‘, min, ‘ очков.’);
  writeln(‘Разница между ними: ‘, max — min, ‘ очков.’);
end.