Question

PascalABC.net: Ввести массив из N целых чисел. Удалить из него элементы с четными номерами . Найти произведение оставшихся элементов. Полученный новый массив и произведение вывести на экран.

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

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

 a := a[::2];

 a.Println;

 a.Aggregate(BigInteger(1), (p, q)-> p * q).Print

end.

Пример

n= 10

3 15 -23 18 6 4 11 18 91 4

3 -23 6 11 91

-414414

Answer 2

Вот решение задачи на языке PascalABC.net:

arduinoCopy code
program RemoveEvenElements;

var
  N, i: integer;
  arr: array of integer;
  product: integer;

begin
  // Ввод размера массива
  write('Введите размер массива: ');
  readln(N);

  // Инициализация массива
  SetLength(arr, N);
  for i := 0 to N - 1 do begin
    write('Введите элемент ', i+1, ': ');
    readln(arr[i]);
  end;

  // Удаление элементов с четными номерами
  for i := N-1 downto 0 do begin
    if i mod 2 = 0 then begin
      arr[i] := arr[N-1];
      SetLength(arr, N-1);
      Dec(N);
    end;
  end;

  // Вывод нового массива
  writeln('Новый массив:');
  for i := 0 to N-1 do begin
    write(arr[i], ' ');
  end;

  // Вычисление произведения оставшихся элементов
  product := 1;
  for i := 0 to N-1 do begin
    product := product * arr[i];
  end;

  // Вывод произведения
  writeln;
  writeln('Произведение оставшихся элементов: ', product);

end.

Как это работает:

• Сначала мы запрашиваем у пользователя размер массива N и заполняем массив arr из N элементов.
• Затем мы проходим по массиву arr в обратном порядке и удаляем элементы с четными индексами (индексы начинаются с 0).
• Мы выводим новый массив arr на экран.
• Мы вычисляем произведение оставшихся элементов в массиве и выводим его на экран.