Question

ПОЖАЛУЙСТА, ПОМОГИТЕ! ПАСКАЛЬ! Дан одномерный массив целых чисел (n=15).Вставить число k перед последним четным элементом.

Answer 1

Можно с помощью условия проверять каждое число с последнего, четное ли оно, и если да, то, начиная с последнего элемента, присвоить последнему элементу значение предыдущего, и так далее, пока не дойдете до k. Бывший последний элемент, как я понимаю, просто пропадает.

Answer 2

Конечно, я помогу вам с этим заданием на языке Pascal. Для вставки числа k перед последним четным элементом в одномерном массиве целых чисел (n = 15) вам понадобится следующий алгоритм:

1. Создайте одномерный массив целых чисел размером n. 2. Заполните массив целыми числами. 3. Найдите последний четный элемент в массиве. Для этого вам понадобится цикл, который будет проходить по массиву с конца и проверять каждый элемент на четность. 4. Запомните индекс последнего четного элемента. 5. Создайте новый массив размером n+1. 6. Скопируйте все элементы из исходного массива в новый массив до индекса последнего четного элемента. 7. Вставьте число k на позицию индекса последнего четного элемента в новом массиве. 8. Скопируйте оставшиеся элементы из исходного массива в новый массив, начиная с позиции индекса последнего четного элемента + 1. 9. Выведите новый массив на экран.

Вот пример реализации данного алгоритма на языке Pascal:

program InsertBeforeLastEven;
const
  n = 15;
var
  arr: array[1..n] of integer;
  newArr: array[1..n+1] of integer;
  k, lastEvenIndex, i: integer;
begin
  // Шаг 1: Создаем исходный массив
  // Заполняем массив случайными числами для примера
  for i := 1 to n do
    arr[i] := Random(100);

// Шаг 3: Находим последний четный элемент
  lastEvenIndex := -1;
  for i := n downto 1 do
  begin
    if arr[i] mod 2 = 0 then
    begin
      lastEvenIndex := i;
      Break;
    end;
  end;

// Шаги 5-9: Создаем новый массив и вставляем число k перед последним четным элементом
  for i := 1 to lastEvenIndex do
    newArr[i] := arr[i];
  newArr[lastEvenIndex+1] := k;
  for i := lastEvenIndex+2 to n+1 do
    newArr[i] := arr[i-1];

// Выводим новый массив на экран
  for i := 1 to n+1 do
    Write(newArr[i], ' ');

Readln;
end.

После запуска программы вы увидите новый массив, в котором число k будет вставлено перед последним четным элементом исходного массива.