Question

Срочно!!! В Паскале Разработайте программу по подсчёту очков для конкурса пения в школе, если всего в оценке конкурсантов участвуют 10 судей. Программа должна автоматически выставлять оценку — среднее арифметическое самого высокого и самого низкого баллов из выставленных судьями.

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrInteger('Введите 10 оценок:', 10);

 Println((a.Max + a.Min) / 2)

end.

Answer 2

Привет! Вот пример программы на языке Паскаль, которая подсчитывает среднее арифметическое самого высокого и самого низкого баллов из выставленных судьями:

program CountScores;

var
  scores: array[1..10] of integer;
  i, sum, maxScore, minScore: integer;
  average: real;

begin
  // Ввод баллов от судей
  for i := 1 to 10 do
  begin
    write('Введите балл от судьи ', i, ': ');
    readln(scores[i]);
  end;

// Находим максимальный и минимальный баллы
  maxScore := scores[1];
  minScore := scores[1];

for i := 2 to 10 do
  begin
    if scores[i] > maxScore then
      maxScore := scores[i];

if scores[i] < minScore then
      minScore := scores[i];
  end;

// Считаем среднее арифметическое
  sum := 0;
  for i := 1 to 10 do
    sum := sum + scores[i];

average := (sum - maxScore - minScore) / 8;

// Выводим результат
  writeln('Среднее арифметическое баллов: ', average:0:2);
end.

Программа начинается с ввода баллов от 10 судей. Затем она находит максимальный и минимальный баллы с помощью цикла. Далее, она суммирует все баллы, кроме самого высокого и самого низкого, и вычисляет среднее арифметическое.

Надеюсь, это поможет!