Дан массив А из 10 чисел, среди которых есть и отрицательные. Создать массив D, в который записать номера отрицательных элементов массива A.

Const
  MAX_SIZE = 10;
 
var
  a: array[1..MAX_SIZE] of integer;
  i, size: integer;
 
procedure delete_odd_elements();
var i, j: integer;
begin
  i := 1;
  repeat
    if odd(a[i]) then
    begin
      dec(size);
      for j := i to size do
        a[j] := a[j + 1]
    end
    else inc(i);
  until i > size;
end;
 
begin
  writeln('Исходный массив: ');
  size := MAX_SIZE;
  for i := 1 to size do
  begin
    a[i] := random(100);
    write(a[i] : 3);
  end;
  delete_odd_elements;
  writeln;
  writeln('Полученный массив: ');
  for i := 1 to size do
    write(a[i] : 3);
end.

#include <iostream>

using namespace std;

unsigned long int Rev(unsigned long int x);

int main()  

{

unsigned long int a, b;

cout << "Input a natural number A: ";

cin >> a;

cout << "Input a natural number B: ";

cin >> b;

cout << "Rev(Rev(A) + Rev(B)) = " << Rev(Rev(a) + Rev(b));

}

unsigned long int Rev(unsigned long int x) {

unsigned long int numb = 0;

while (x != 0) {

 numb = (numb + x % 10) * 10;

 x /= 10;

}

return numb / 10;

}

/* Форматирование, скорее всего, не сохранится, поэтому прикрепляю .cpp файл */