Question

Написать программу вычисления среднего арифметическаго самого большого и самого маленького элементов массива Х из 12 элементов, заполняемого случайными числами в диапазоне от -25 до 25. программа паскаль

Answer 1

program average_of_extremes;

var

 x: array [1..12] of integer;

 i, max, min, sum: integer;

begin

 randomize;

 max := -25;

 min := 25;

 sum := 0;

 for i := 1 to 12 do

 begin

   x[i] := random(51) - 25;

   if x[i] > max then max := x[i];

   if x[i] < min then min := x[i];

 end;

 sum := max + min;

 writeln(sum div 2);

end.

Answer 2

Приведенная ниже программа на языке Pascal выполняет вычисление среднего арифметического самого большого и самого маленького элементов массива X из 12 элементов, заполняемого случайными числами в диапазоне от -25 до 25.

pascalCopy code
program AverageMinMax;
var
  X: array[1..12] of integer;
  i, Min, Max, Sum: integer;
  Average: real;
begin
  Randomize; // Инициализация генератора случайных чисел

  // Заполняем массив случайными числами в диапазоне от -25 до 25
  for i := 1 to 12 do
    X[i] := Random(51) - 25;

  // Находим минимальное и максимальное значения в массиве
  Min := X[1];
  Max := X[1];
  Sum := X[1];

  for i := 2 to 12 do
  begin
    if X[i] < Min then
      Min := X[i];
    if X[i] > Max then
      Max := X[i];
    Sum := Sum + X[i];
  end;

  // Вычисляем среднее арифметическое
  Average := (Sum - Min - Max) / 10; // Вычитаем минимальное и максимальное значения

  // Выводим результаты
  writeln('Массив X:');
  for i := 1 to 12 do
    write(X[i], ' ');
  writeln;
  writeln('Минимальное значение: ', Min);
  writeln('Максимальное значение: ', Max);
  writeln('Среднее арифметическое без минимального и максимального: ', Average:0:2);
end.

Программа создает массив X, заполняет его случайными числами в указанном диапазоне, находит минимальное и максимальное значения, затем вычисляет среднее арифметическое всех элементов, исключая минимальное и максимальное значения. Результаты выводятся на экран.