1. В паскале решите следующую задачу: имеется значение роста 25 учащихся класса, заданные в алфавитном порядке

Хорошо, давайте решим каждую задачу по порядку, используя язык программирования Паскаль.

1. Задача:
Для решения этой задачи нам необходимо отсортировать значения роста учащихся класса в порядке возрастания и найти рост ученика, занимающего 10-е место.

Приведенный ниже код на Паскале поможет нам решить эту задачу:

pascal

program Задача_1;

var

  Рост: array[1..25] of integer;  // Массив, содержащий значения роста учащихся

  i, j, temp: integer;  // Переменные для циклов и временного хранения значения

begin

  // Введите значения роста учащихся

  writeln("Введите значения роста 25 учащихся класса:");

  for i := 1 to 25 do

  begin

    write("Ученик ", i, ": ");

    readln(Рост[i]);

  end;



  // Сортировка массива роста по возрастанию (методом пузырька)

  for i := 1 to 25-1 do

  begin

    for j := 1 to 25-i do

    begin

      if Рост[j] > Рост[j+1] then

      begin

        temp := Рост[j];

        Рост[j] := Рост[j+1];

        Рост[j+1] := temp;

      end;

    end;

  end;



  // Вывод роста ученика, занимающего 10-е место

  writeln("Рост ученика, занимающего 10-е место: ", Рост[16]);

end.

Теперь у нас есть программа, которая сортирует значения роста учащихся и выводит рост ученика, занимающего 10-е место (начиная с самого высокого ученика).

2. Задача:
Данная задача требует нахождения максимальной скорости автомобиля, который является 6-ым самым быстрым автомобилем.

Ниже приведен код на Паскале, решающий эту задачу:

pascal

program Задача_2;

var

  Скорость: array[1..15] of integer;  // Массив, содержащий значения максимальной скорости автомобилей

  i, j, temp: integer;  // Переменные для циклов и временного хранения значения

begin

  // Введите значения максимальной скорости для 15 моделей автомобилей

  writeln("Введите значения максимальной скорости для 15 моделей автомобилей:");

  for i := 1 to 15 do

  begin

    write("Автомобиль ", i, ": ");

    readln(Скорость[i]);

  end;



  // Сортировка массива скорости по убыванию (методом пузырька)

  for i := 1 to 15-1 do

  begin

    for j := 1 to 15-i do

    begin

      if Скорость[j] < Скорость[j+1] then

      begin

        temp := Скорость[j];

        Скорость[j] := Скорость[j+1];

        Скорость[j+1] := temp;

      end;

    end;

  end;



  // Вывод максимальной скорости 6-го самого быстрого автомобиля

  writeln("Максимальная скорость 6-го самого быстрого автомобиля: ", Скорость[6]);

end.

Теперь у нас есть программа, которая сортирует значения максимальной скорости автомобилей и выводит максимальную скорость автомобиля, который является 6-ым самым быстрым.

3. Задача:
Дано, что в каждом из 2 классов учится по 18 человек, и известны средние оценки каждого ученика.

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

Приведенный ниже код на Паскале поможет нам решить эту задачу:

pascal

program Задача_3;

var

  Оценки: array[1..18] of integer;  // Массив, содержащий оценки учеников

  i, Сумма: integer;  // Переменные для цикла и суммы оценок

  СредняяОценка: real;  // Переменная для хранения средней оценки

begin

  // Введите оценки для 18 учеников

  writeln("Введите оценки для 18 учеников:");

  for i := 1 to 18 do

  begin

    write("Ученик ", i, ": ");

    readln(Оценки[i]);

    Сумма := Сумма + Оценки[i];

  end;



  // Вычисление средней оценки

  СредняяОценка := Сумма / 18;



  // Вывод средней оценки

  writeln("Средняя оценка учеников: ", СредняяОценка:0:2);

end.

Теперь у нас есть программа, которая запрашивает оценки для 18 учеников первого класса, вычисляет среднюю оценку и выводит ее на экран.

Надеюсь, что представленные решения помогут вам понять данные задачи и решить их. Если у вас возникнут еще какие-либо вопросы, не стесняйтесь задавать!