Question

В классе 26 учеников, вес учащихся от 55 до 85 кг, отсортируйте в порядке убывания веса найти средний вес ученика. Помогите пожалуйста !!! pascal

Answer 1

PascalABC.NET 3.4

begin
  var a := ArrRandom(26, 55, 85); a.Println;
  Writeln('По убыванию:'); a.OrderByDescending(t->t).Println;
  Writeln('Средний вес = ',a.Average:0:2)
end.

Answer 2

Конечно, я могу помочь вам с этим заданием на языке Pascal. Вот пример кода, который сортирует вес учеников в порядке убывания и находит средний вес:

pascalCopy code
program AverageWeight;

const
  N = 26; // Количество учеников

type
  TArray = array[1..N] of Integer;

var
  weights: TArray;
  i, j, temp: Integer;
  sum: Integer;
  average: Real;

begin
  // Ввод весов учеников
  for i := 1 to N do
  begin
    writeln('Введите вес ученика ', i, ': ');
    readln(weights[i]);
  end;

  // Сортировка весов в порядке убывания (сортировка пузырьком)
  for i := 1 to N - 1 do
  begin
    for j := 1 to N - i do
    begin
      if weights[j] < weights[j + 1] then
      begin
        temp := weights[j];
        weights[j] := weights[j + 1];
        weights[j + 1] := temp;
      end;
    end;
  end;

  // Вывод отсортированных весов
  writeln('Отсортированный список весов учеников в порядке убывания:');
  for i := 1 to N do
  begin
    writeln(weights[i]);
  end;

  // Нахождение среднего веса
  sum := 0;
  for i := 1 to N do
  begin
    sum := sum + weights[i];
  end;
  average := sum / N;

  writeln('Средний вес ученика: ', average:0:2);
end.

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