
Найти разницу (-) между наибольшими и наименьшими значениями из последовательности n чисел...
Pascal.

Ответы на вопрос

program n;
var max, min,temp:integer;
begin
read(min);
max:=min;
while(true)do
begin
read(temp);
if temp = 0 then break;
if temp > max then max:=temp;
if temp < min then min:=temp;
end;
write(max - min);
end.
Эта программа буде работать, если последовательность будет оканчиваться нулем



Чтобы найти разницу между наибольшим и наименьшим значениями из последовательности n чисел в Pascal, нужно выполнить следующие шаги:
- Считать последовательность чисел.
- Найти наибольшее и наименьшее значения в этой последовательности.
- Вычислить разницу между наибольшим и наименьшим значениями.
Вот пример кода на Pascal (Free Pascal) для решения этой задачи:
pascalprogram FindDifference; var n, i, minValue, maxValue, currentValue: integer; begin // Инициализация минимального и максимального значений minValue := MaxInt; maxValue := MinInt; // Ввод количества чисел в последовательности writeln('Введите количество чисел в последовательности:'); readln(n); // Ввод последовательности чисел и поиск минимального и максимального значения for i := 1 to n do begin write('Введите число ', i, ': '); readln(currentValue); // Проверка, является ли текущее число новым минимальным или максимальным значением if currentValue < minValue then minValue := currentValue; if currentValue > maxValue then maxValue := currentValue; end; // Вычисление разницы и вывод результата writeln('Наименьшее значение: ', minValue); writeln('Наибольшее значение: ', maxValue); writeln('Разница между наибольшим и наименьшим значениями: ', maxValue - minValue); end.
Обратите внимание, что в приведенном выше коде предполагается, что пользователь будет вводить числа последовательности вручную. Вы можете адаптировать этот код в соответствии с вашими потребностями, например, считывая последовательность чисел из файла или из другого источника данных.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili