Разработайте программу По подсчёту баллов для конкурса пения в школе, если всего в оценке конкурсантов участвуют 10 судей

ЧАТ-БОТ: ГДЗ с нейронкой

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

Ответы 1

Решение №1

Код

program RandomArraySumCount;

const
  Size = 10;

var
  a: array[1..Size] of Integer;
  i, minValue, maxValue: Integer;
  Res: Real;

begin
  minValue := 0;
  maxValue := 0;

  // Заполнение массива и вывод его на экран
  for i := 1 to Size do
  begin
  Write(i, ' судья: ');
  Readln(a[i]);
  end;

  // Поиск минимального и максимального значения
  for i := 1 to Size do
  begin
  if a[i] < minValue then
  minValue := a[i];
  if a[i] > maxValue then
  maxValue := a[i];
  end;

  // Поиск среднего арифметического
  Res:= (maxValue + minValue) / 2;

  // Вывод результатов
  Writeln('Минимальный балл: ', minValue);
  Writeln('Максимальный балл: ', maxValue);
  Writeln('Итоговая оценка: ', Res);
end.