Question

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

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

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


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

Answer 1

Ответ:

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.