Question

Массиве вставить число равное максимальному элементу после минимального элемента Паскаль массивы решить задачу пжжж

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var amax := a.Max;

 var imin := a.IndexMin + 1;

 a := a[:imin] + Arr(amax) + a[imin:];

 a.Print

end.

Answer 2

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

pascalCopy code
program InsertMaxAfterMin;

var
  arr: array of Integer;
  i, minIdx, maxIdx: Integer;
  minValue, maxValue: Integer;
  
begin
  // Введите размер массива
  Write('Введите размер массива: ');
  ReadLn(i);
  
  // Выделите память для массива
  SetLength(arr, i);
  
  // Введите элементы массива
  for i := 0 to High(arr) do
  begin
    Write('Введите элемент ', i, ': ');
    ReadLn(arr[i]);
  end;
  
  // Найдите минимальный и максимальный элементы
  minValue := arr[0];
  maxValue := arr[0];
  minIdx := 0;
  maxIdx := 0;
  
  for i := 1 to High(arr) do
  begin
    if arr[i] < minValue then
    begin
      minValue := arr[i];
      minIdx := i;
    end
    else if arr[i] > maxValue then
    begin
      maxValue := arr[i];
      maxIdx := i;
    end;
  end;
  
  // Вставьте максимальный элемент после минимального
  SetLength(arr, Length(arr) + 1);
  for i := High(arr) downto minIdx + 2 do
    arr[i] := arr[i - 1];
  
  arr[minIdx + 1] := maxValue;
  
  // Выведите результат
  WriteLn('Массив после вставки:');
  for i := 0 to High(arr) do
    WriteLn('Элемент ', i, ': ', arr[i]);
end.

Этот код сначала находит минимальный и максимальный элементы, а затем вставляет максимальный элемент после минимального.