В массиве А из 10 целых чисел найти номер последнего четного элемента. Все элементы, стоящие до него, заменить найденным номером. (С++ или на

№1var a: array [1..20] of integer;       i: integer; begin  randomize;     for i: =1 to 20 do  begin    a[i]: =random()+1)+-10;       write (a[i],' ');             end; end. №2var a: array [1..20] of integer;   i: integer;   begin  writeln('введите числа в интервале [-20; 29]');   for i: =1 to 10 do read(a[i]);   for i: =1 to 10 do  if (a[i]> -29) and (a[i]< 20) then write(a[i],' ');   end. №3var a: array [1..20] of integer;   i,sum: integer;   begin  randomize;   sum: =0;   for i: =1 to 20 do  begin  a[i]: =random()+1)+-10;   write (a[i],' ');   if a[i]> 0 then sum: =sum+1;   end;   writeln('количество положительных элементов массива = ', sum);   end. №4var a: array [1..20] of integer;   i: integer;   begin  randomize;   for i: =1 to 20 do  begin  a[i]: =random()+1)+-10;   if a[i]< 0 then a[i]: =0;   write (a[i],' ');   end;   end. №5var a: array [1..20] of integer;   i,sum: integer;   begin  randomize;   sum: =0;   for i: =1 to 20 do  begin  a[i]: =random()+1)+-10;   write (a[i],' ');   if a[i]> 0 then sum: =sum+a[i];   end;   writeln('сумма положительных элементов массива = ', sum);   end.