Question

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

Answer 1

Пометки:

1. сделал программу на изменяющееся количество чисел (const kol = 5), меняя это число можно изменить количество вводимых чисел, а так же обрабатываемых (например если вместо 5 сделать 8, то программа будет рассматривать 8 чисел и из них суммировать 7)
либо же если такая гибкость не нужна, тогда первую строку удаляем и в программе везде вместо kol пишем цифру 5

2. maxint - команда, задающая автоматически максимальное значение типа integer, аналогично -maxint - противоположное минимальное

Answer 2

Программа на языке PascalABC.NET для нахождения минимально и максимально возможных сумм при выборе ровно 4 чисел из заданных 5 целых чисел:

program MinMaxSum;

var
  numbers: array[1..5] of integer;
  i, j, sum, minSum, maxSum: integer;

begin
  // Вводим 5 целых чисел
  writeln('Введите 5 целых чисел:');
  for i := 1 to 5 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;

// Инициализируем минимальную и максимальную суммы значением первых 4 чисел
  minSum := numbers[1] + numbers[2] + numbers[3] + numbers[4];
  maxSum := numbers[1] + numbers[2] + numbers[3] + numbers[4];

// Находим минимальную и максимальную суммы
  for i := 1 to 5 do
  begin
    for j := i + 1 to 5 do
    begin
      sum := numbers[i] + numbers[j];
      if sum < minSum then
        minSum := sum;
      if sum > maxSum then
        maxSum := sum;
    end;
  end;

// Выводим результаты
  writeln('Минимальная сумма: ', minSum);
  writeln('Максимальная сумма: ', maxSum);

readln;
end.

Программа запрашивает у пользователя ввод 5 целых чисел. Затем она инициализирует минимальную и максимальную суммы значением первых 4 чисел. Затем она проходит по всем парам чисел и находит минимальную и максимальную суммы. Наконец, программа выводит найденные значения минимальной и максимальной суммы.