Question

Дан одномерный массив целых чисел. Найти сумму максимального и минимального элемента. Программа Паскаль. СРОЧНО ИНФОРМАТИКА!!! 40 баллов

Answer 1

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Println('Сумма максимального и минимального равна', a.Min + a.Max)

end.

Answer 2

Вот пример программы на языке Паскаль, которая находит сумму максимального и минимального элемента в одномерном массиве целых чисел:

pascalCopy code
program MaxMinSum;

const
  N = 10; // Размер массива, можно изменить по необходимости

var
  arr: array[1..N] of integer;
  i, min, max, sum: integer;

begin
  // Заполняем массив случайными числами (для примера)
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100); // Генерируем случайное число от 0 до 99

  // Выводим исходный массив
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

  // Находим минимальный и максимальный элементы
  min := arr[1];
  max := arr[1];
  for i := 2 to N do
  begin
    if arr[i] < min then
      min := arr[i];
    if arr[i] > max then
      max := arr[i];
  end;

  // Находим сумму максимального и минимального элементов
  sum := min + max;

  // Выводим результат
  writeln('Минимальный элемент: ', min);
  writeln('Максимальный элемент: ', max);
  writeln('Сумма минимального и максимального элементов: ', sum);
end.

Обратите внимание, что здесь размер массива задан константой N. Если вам нужно изменить размер массива, просто измените значение константы N и перезапустите программу.