Выбирая 4 числа из 5, посчитать максимально возможную и минимально возможную сумы - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Даны 5 целых чисел. Посчитайте минимально возможную и максимально возможные суммы выбрав ровно 4 числа из заданных изначально.

Решение задачи: «Выбирая 4 числа из 5, посчитать максимально возможную и минимально возможную сумы»

textual
Листинг программы
var i,a,s,mn,mx:integer;
begin
writeln('Введите 5 целых чисел');
readln(a);
s:=a;
mn:=a;
mx:=a;
for i:=2 to 5 do
 begin
  readln(a);
  s:=s+a;
  if a<mn then mn:=a
  else if a>mx then mx:=a;
 end;
writeln('Минимальная сумма=',s-mx,' максимальная сумма',s-mn);
end.

Объяснение кода листинга программы

  1. Создается переменная i типа integer, которая будет использоваться для цикла.
  2. Создаются переменные a, s, mn и mx также типа integer. Переменные a, s и mx инициализируются значением a, которое было введено пользователем. Переменная mn инициализируется наименьшим значением из a, s и mx.
  3. В цикле от 2 до 5 выполняется следующая последовательность действий:
    • Число a, введенное пользователем, считывается в переменную a.
    • Переменная s увеличивается на значение a.
    • Если a меньше, чем текущее значение mn, то mn обновляется значением a.
    • Если a больше, чем текущее значение mx, то mx обновляется значением a.
  4. После выполнения цикла выводится сообщение с минимальной и максимальной суммой, рассчитанными на основе переменных s и mn. Код выполняет задачу подсчета максимальной и минимальной суммы из четырех чисел, введенных пользователем. Он также обновляет значения mn и mx для представления минимального и максимального чисел соответственно.

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы