Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var amin:=a.Where((x,i)->i.IsEven).Max;
  a:=a.Select((x,i)->i.IsOdd?x-amin:x).ToArray; a.Println
end.

Пример
n= 15
11 37 50 31 9 -15 49 29 26 -5 27 -6 -17 -12 -26
11 -13 50 -19 9 -65 49 -21 26 -55 27 -56 -17 -62 -26

Answer 2

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

program ProcessArray;

const
  MAX_SIZE = 100;

var
  A: array[1..MAX_SIZE] of Integer;
  N, i, maxOddPos, maxValue: Integer;

procedure InputArray(var A: array of Integer; var N: Integer);
var
  i: Integer;
begin
  Write('Введите размер массива N: ');
  ReadLn(N);

WriteLn('Введите элементы массива:');
  for i := 1 to N do
  begin
    Write('A[', i, '] = ');
    ReadLn(A[i]);
  end;
end;

procedure OutputArray(var A: array of Integer; N: Integer);
var
  i: Integer;
begin
  WriteLn('Массив A:');
  for i := 1 to N do
    Write(A[i], ' ');
  WriteLn;
end;

begin
  InputArray(A, N);
  OutputArray(A, N);

// Находим наибольший элемент среди тех, которые находятся на нечетных позициях
  maxOddPos := 1;
  for i := 3 to N step 2 do
  begin
    if A[i] > A[maxOddPos] then
      maxOddPos := i;
  end;

maxValue := A[maxOddPos];
  WriteLn('Наибольший элемент на нечетной позиции: ', maxValue);

// Уменьшаем элементы с четными индексами на полученное значение
  for i := 2 to N step 2 do
    A[i] := A[i] - maxValue;

WriteLn('Массив после уменьшения элементов с четными индексами:');
  OutputArray(A, N);
end.

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