profile
Размещено 4 года назад по предмету Информатика от pushkariovap233

ПОМОГИТЕ, ПОЖАЛУЙСТА

ПРОГРАММИРОВАНИЕ 9 КЛАСС
НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЕ

На уроке физкультуры тренер Андрей Сергеевич выстраивает учеников в одну шеренгу. При этом ученики в шеренге стоят по невозрастанию роста. Андрея Сергеевича заинтересовал вопрос, какое максимальное различие в росте двух стоящих рядом учеников. Напишите программу, которая поможет Андрею Сергеевичу ответить на этот важный для него вопрос.
Формат входных данных
Первая строка содержит целое число n — число учеников в классе (2 ≤ n ≤ 20). Следующие n строк содержат по одному целому числу hi — рост в сантиметрах i-го ученика (100 ≤ hi ≤ 200).


Формат выходных данных
Выведите одно число — максимальное различие в росте стоящих рядом учеников после того, как они выстроятся в шеренгу на уроке физкультуры.
Примеры:
Пример ввода
Пример вывода:
6
120
130
142
115
145
134
10

  1. Ответ на вопрос
    Ответ на вопрос дан huston81

    Ответ:

    pascal

    Объяснение:

    program rost;

    var

     n, i, j, maxrazn: integer;

     hi: array of integer;

    begin

     Write('Введите количество учеников: ');

     ReadLn(n);

     SetLength(hi, n);

     WriteLn('Введите рост учеников:');

     for i := 0 to n - 1 do

       ReadLn(hi[i]);

     for i := 0 to n - 2 do

       for j:= i + 1 to n - 1 do

         if hi[i] < hi[j] then swap(hi[i], hi[j]);

     for i := 0 to n - 2 do

       if hi[i] - hi[i + 1] > maxrazn then maxrazn := hi[i] - hi[i + 1];

     WriteLn('Максимальное различие в росте стоящих рядом учеников равно ', maxrazn, ' см.');

    end.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.