оценки на соревнованиях по фигурному катанию выставляются 9 судьями. Потом одна самая высокая и самая низкие оценки отбрасываются и в зачет идет среднее арифметическое оставшихся…

Конечно! Давайте составим программу на Pascal, которая будет генерировать оценки судей от 1 до 6, отбрасывать высокую и низкую оценки, а затем вычислять среднее арифметическое оставшихся. Это отличный способ попрактиковаться в программировании.

Вот пример кода на Pascal:

program FigureSkatingScores;

uses crt;

var
  scores: array[1..9] of Integer;
  i, minScore, maxScore, total, count: Integer;
  average: Real;

begin
  Randomize; // Инициализация генератора случайных чисел
  
  // Генерация случайных оценок от 1 до 6
  WriteLn('Оценки судей:');
  for i := 1 to 9 do
  begin
    scores[i] := Random(6) + 1;
    Write(scores[i], ' ');
  end;
  WriteLn;

  // Находим максимальную и минимальную оценки
  minScore := scores[1];
  maxScore := scores[1];
  
  for i := 2 to 9 do
  begin
    if scores[i] < minScore then
      minScore := scores[i];
    if scores[i] > maxScore then
      maxScore := scores[i];
  end;

  // Суммируем оценки, отбрасывая минимальную и максимальную
  total := 0;
  count := 0;

  for i := 1 to 9 do
  begin
    if (scores[i] <> minScore) and (scores[i] <> maxScore) then
    begin
      total := total + scores[i];
      count := count + 1;
    end;
  end;

  // Вычисляем среднее арифметическое
  if count > 0 then
    average := total / count
  else
    average := 0;

  WriteLn('Зачетная оценка спортсмена: ', average:0:2);
  ReadLn; // Ожидание нажатия клавиши
end.

Пояснение коду:

1. Мы используем массив scores для хранения 9 оценок.
2. Генерация оценок происходит с помощью функции Random, которая дает случайные числа в диапазоне от 1 до 6.
3. Мы ищем минимальную и максимальную оценки, чтобы их исключить из дальнейших расчетов.
4. В цикле суммируем оставшиеся оценки и подсчитываем их количество.
5. Наконец, вычисляется среднее арифметическое и выводится на экран.

Эта программа позволит вам понять, как работают массивы, циклы и простые математические операции в Pascal. Не стесняйтесь экспериментировать с кодом и модифицировать его для лучшего понимания!