Question

Найдите сумму максимального и минимального элементов среди элементов с нечётными индексами . Результат выведите на экран . Паскаль

Answer 1

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

var 
 n:integer;
 a:array[1..100] of integer;
begin
 write('Введите размер массива (n<100): ');readln(n);
 var max:=0;
 var min:=101;
 for var i:=1 to n do
 begin
  a[i]:=random(0,100);
  write(a[i],' ');
  if i mod 2=1 then
   if a[i]>max then max:=a[i]
   else
    if a[i]<min then min:=a[i];
 end;
 writeln;
 writeln('Максимальный - ',max);
 writeln('Минимальный - ',min);
 writeln('Cумма максимального и минимального - ',max+min);
 readln;
end.

Пример:

Введите размер массива (n<100): 10
22 6 51 84 46 66 10 36 14 52                   // рандомная генерация
Максимальный - 51
Минимальный - 10
Cумма максимального и минимального - 61

Answer 2

Поиск суммы максимального и минимального элементов с нечётными индексами в Паскале

Для нахождения суммы максимального и минимального элементов с нечётными индексами в Паскале, можно использовать следующий алгоритм:

1. Создайте массив, содержащий элементы, среди которых нужно найти максимальный и минимальный элементы с нечётными индексами. 2. Инициализируйте переменные `max` и `min` значением первого нечётного элемента массива. 3. Проходите по массиву, начиная со второго элемента с нечётным индексом. 4. Если текущий элемент больше значения переменной `max`, обновите значение `max`. 5. Если текущий элемент меньше значения переменной `min`, обновите значение `min`. 6. После прохода по всем элементам массива, сложите значения `max` и `min` и выведите результат на экран.

Пример кода на Паскале:

program FindMinMaxSum;

var
  arr: array of Integer;
  i, max, min, sum: Integer;

begin
  // Инициализация массива
  SetLength(arr, 10);
  arr[0] := 1;
  arr[1] := 2;
  arr[2] := 3;
  arr[3] := 4;
  arr[4] := 5;
  arr[5] := 6;
  arr[6] := 7;
  arr[7] := 8;
  arr[8] := 9;
  arr[9] := 10;

// Инициализация переменных max и min
  max := arr[1];
  min := arr[1];

// Поиск максимального и минимального элементов с нечётными индексами
  for i := 3 to Length(arr) - 1 step 2 do
  begin
    if arr[i] > max then
      max := arr[i];
    if arr[i] < min then
      min := arr[i];
  end;

// Вычисление суммы максимального и минимального элементов
  sum := max + min;

// Вывод результата на экран
  WriteLn('Сумма максимального и минимального элементов с нечётными индексами: ', sum);
end.

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

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