Question

Дан одномерный массив целых чисел размерностью до 20 элементов. необходимо упорядочить элементы исходного массива по убыванию, а затем определить среднее арифметическое элементов с чётными индексами, и среднее арифметическое элементов с нечетными номерами. вывести на экран исходный массив и результат работы программы. !!! Паскаль!!! ​

Answer 1

<немного текста, чтобы ответ приняли>

Answer 2

Конечно, вот программа на Pascal, которая сортирует массив по убыванию и вычисляет средние арифметические для элементов с четными и нечетными индексами:

program SortAndCalculateAverages;
const
  MaxSize = 20;
var
  arr: array[1..MaxSize] of integer;
  n, i, temp, evenSum, oddSum, evenCount, oddCount: integer;
begin
  // Ввод размерности массива
  write('Введите размерность массива (не более 20): ');
  readln(n);
  
  // Проверка на допустимую размерность
  if (n < 1) or (n > MaxSize) then
  begin
    writeln('Размерность должна быть от 1 до 20');
    exit;
  end;
  
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;
  
  // Сортировка массива по убыванию
  for i := 1 to n - 1 do
    for temp := 1 to n - i do
      if arr[temp] < arr[temp + 1] then
      begin
        // Поменять местами элементы
        temp := arr[temp];
        arr[temp] := arr[temp + 1];
        arr[temp + 1] := temp;
      end;
  
  // Инициализация переменных для вычисления средних
  evenSum := 0;
  oddSum := 0;
  evenCount := 0;
  oddCount := 0;
  
  // Вычисление средних арифметических
  for i := 1 to n do
  begin
    if i mod 2 = 0 then
    begin
      // Элементы с четными индексами
      evenSum := evenSum + arr[i];
      evenCount := evenCount + 1;
    end
    else
    begin
      // Элементы с нечетными индексами
      oddSum := oddSum + arr[i];
      oddCount := oddCount + 1;
    end;
  end;
  
  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to n do
    write(arr[i], ' ');
  writeln;
  
  // Вывод средних арифметических
  writeln('Среднее арифметическое элементов с четными индексами: ', evenSum / evenCount);
  writeln('Среднее арифметическое элементов с нечетными индексами: ', oddSum / oddCount);
end.

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