Титович
4 год назад
Пожалуйста посчитайте, ПОЖАЛУЙСТАПРОГРАММИРОВАНИЕ 9 КЛАССНАПИШИТЕ ПРОГРАММУ В ПАСКАЛЕНа уроке физкультуры тренер Андрей Сергеевич выстраивает учеников в одну шеренгу. При этом ученики в шеренге стоят по невозрастанию роста. Андрея Сергеевича заинтересовал вопрос, какое максимальное различие в росте двух стоящих рядом учеников. Напишите программу, которая поможет Андрею Сергеевичу ответить на этот важный для него вопрос.Формат входных данныхПервая строка содержит целое число n — число учеников в классе (2 ≤ n ≤ 20). Следующие n строк содержат по одному целому числу hi — рост в сантиметрах i-го ученика (100 ≤ hi ≤ 200).Формат выходных данныхВыведите одно число — максимальное различие в росте стоящих рядом учеников после того, как они выстроятся в шеренгу на уроке физкультуры.Примеры:Пример вводаПример вывода:612013014211514513410
ОТВЕТЫ
Богдан
Oct 24, 2020
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.
736
Смежные вопросы:
