Question

Программы на паскале. 1.Из одномерного массива, состоящего из n целых элементов сформировать новый массив, состоящий только из положительных четных элементов больших 13 и меньших 23. 2. Сформировать новый массив, состоящий сначала из положительных четных элементов больших 13 и меньших 23, а затем из оставшихся элементов.

Answer 1

begin

 var a := ReadArrInteger(ReadInteger);

 var b := a.Where(x -> x.isEven and x.inRange(13, 23)).Println.ToArray;

 var c := a.Where(x -> not (x.isEven and x.InRange(13, 23)))

 .Println.ToArray

end.

Answer 2

Для выполнения этих задач на языке Pascal, вам потребуется написать две процедуры или функции. Ниже приведены решения для каждой задачи.

1. Формирование нового массива из положительных четных элементов больших 13 и меньших 23:

pascalCopy code
program Task1;

const
  n = 10; // Здесь задайте размер исходного массива

type
  IntArray = array[1..n] of Integer;

procedure FormNewArray(const arr: IntArray; var newArr: IntArray; var newSize: Integer);
var
  i: Integer;
begin
  newSize := 0;
  for i := 1 to n do
  begin
    if (arr[i] > 13) and (arr[i] < 23) and (arr[i] mod 2 = 0) then
    begin
      Inc(newSize);
      newArr[newSize] := arr[i];
    end;
  end;
end;

var
  originalArray: IntArray;
  newArray: IntArray;
  newSize, i: Integer;

begin
  // Здесь заполните исходный массив originalArray

  FormNewArray(originalArray, newArray, newSize);

  writeln('New array:');
  for i := 1 to newSize do
    write(newArray[i], ' ');

  readln;
end.

2. Формирование нового массива сначала из положительных четных элементов больших 13 и меньших 23, а затем из оставшихся элементов:

pascalCopy code
program Task2;

const
  n = 10; // Здесь задайте размер исходного массива

type
  IntArray = array[1..n] of Integer;

procedure FormNewArray(const arr: IntArray; var newArr: IntArray; var newSize: Integer);
var
  i: Integer;
begin
  newSize := 0;

  // Сначала добавляем положительные четные элементы большие 13 и меньшие 23
  for i := 1 to n do
  begin
    if (arr[i] > 13) and (arr[i] < 23) and (arr[i] mod 2 = 0) then
    begin
      Inc(newSize);
      newArr[newSize] := arr[i];
    end;
  end;

  // Затем добавляем оставшиеся элементы
  for i := 1 to n do
  begin
    if not ((arr[i] > 13) and (arr[i] < 23) and (arr[i] mod 2 = 0)) then
    begin
      Inc(newSize);
      newArr[newSize] := arr[i];
    end;
  end;
end;

var
  originalArray: IntArray;
  newArray: IntArray;
  newSize, i: Integer;

begin
  // Здесь заполните исходный массив originalArray

  FormNewArray(originalArray, newArray, newSize);

  writeln('New array:');
  for i := 1 to newSize do
    write(newArray[i], ' ');

  readln;
end.

В обоих случаях, вам нужно будет заполнить массив originalArray данными перед вызовом функции FormNewArray. Обратите внимание, что я использовал const n = 10 для определения размера массива, но вы можете заменить это значение на желаемое количество элементов.