Question

Помогите в Паскале пожалуйста. Написать программу, вычисляющую сумму наибольшего и наименьшего чисел из 15 введенных вами

Answer 1

Мы это делали в классе если немного соображаешь то поймешь все .

Answer 2

Конечно, я могу помочь вам написать программу на языке Паскаль для вычисления суммы наибольшего и наименьшего чисел из 15 введенных вами. Вот пример программы:

program FindMinMaxSum;

var
  i, num, min, max, sum: integer;

begin
  min := 32767; // Инициализируем переменную min большим числом
  max := -32768; // Инициализируем переменную max меньшим числом
  sum := 0; // Инициализируем переменную sum нулем

for i := 1 to 15 do
  begin
    write('Введите число ', i, ': ');
    readln(num);

// Проверяем, является ли введенное число новым минимальным или максимальным
    if num < min then
      min := num;
    if num > max then
      max := num;

sum := sum + num; // Добавляем число к сумме
  end;

writeln('Наименьшее число: ', min);
  writeln('Наибольшее число: ', max);
  writeln('Сумма наименьшего и наибольшего чисел: ', min + max);
  writeln('Сумма всех введенных чисел: ', sum);
end.

В этой программе мы используем цикл `for` для ввода 15 чисел и нахождения наименьшего, наибольшего и суммы этих чисел. Переменные `min` и `max` инициализируются с начальными значениями, которые гарантированно будут изменены при вводе чисел. Переменная `sum` используется для подсчета суммы всех введенных чисел.

После выполнения программы, она выведет наименьшее число, наибольшее число, сумму наименьшего и наибольшего чисел, а также сумму всех введенных чисел.

Примечание: Пожалуйста, убедитесь, что вы используете среду разработки, которая поддерживает язык Паскаль, например, Turbo Pascal или Free Pascal, чтобы запустить эту программу.