Вопрос задан 23.07.2023 в 08:58. Предмет Информатика. Спрашивает Shtokolova Lera.

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

Pascal.
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Кроцюк Дима.

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.

Эта программа буде работать, если последовательность будет оканчиваться нулем

0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Чтобы найти разницу между наибольшим и наименьшим значениями из последовательности n чисел в Pascal, нужно выполнить следующие шаги:

  1. Считать последовательность чисел.
  2. Найти наибольшее и наименьшее значения в этой последовательности.
  3. Вычислить разницу между наибольшим и наименьшим значениями.

Вот пример кода на Pascal (Free Pascal) для решения этой задачи:

pascal
program 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.

Обратите внимание, что в приведенном выше коде предполагается, что пользователь будет вводить числа последовательности вручную. Вы можете адаптировать этот код в соответствии с вашими потребностями, например, считывая последовательность чисел из файла или из другого источника данных.

0 0

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос