Question

Напишите ОДНУ программу (Паскаль) с поиском наибольшего и наименьшего элемента ОДНОГО массива, а также нахождения суммы этих элементов

Answer 1

Б-6;рлдономпгщоангопрн

Answer 2

Конечно, вот пример программы на Pascal, которая находит наибольший и наименьший элементы массива и вычисляет их сумму:

pascalCopy code
program FindMinMaxSum;
const
  N = 10; // Размер массива
var
  arr: array[1..N] of Integer;
  i, minValue, maxValue, sum: Integer;
begin
  // Заполняем массив случайными числами
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100); // Генерируем случайные числа от 0 до 99

  // Инициализируем минимальное и максимальное значения
  minValue := arr[1];
  maxValue := arr[1];
  sum := arr[1];

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

  // Выводим результаты
  WriteLn('Массив:');
  for i := 1 to N do
    Write(arr[i], ' ');
  WriteLn;
  WriteLn('Наименьший элемент: ', minValue);
  WriteLn('Наибольший элемент: ', maxValue);
  WriteLn('Сумма наименьшего и наибольшего элементов: ', minValue + maxValue);

  ReadLn;
end.

Программа создает массив случайных целых чисел, находит наименьший и наибольший элементы в нем, и вычисляет их сумму.