задачи на обработку массива (Delphi)

[Евгений77777]

1. заменить последний положительный элемент массива на 2 ой элемент массива

2. заменить все элементы массива с четными номерами на 1ый элемент массива(первый элемент отличен от 0)

нужно решить в делфи и вывести результат в edit


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Hacker19_90]

Ася в профиле! Недорого! Стучите!

[kangreon]

var
  a: array[1..10] of Integer;
  i, k: Integer;
begin


  for i := 1 to 10 do
    if a[i] mod 2 = 0 then k := i;
  
  a[i] := a[2];
end;

Даже лучше так:

var
  a: array[1..10] of Integer;
  i: Integer;
begin
  for i := 10 downto 1 do
    if a[i] mod 2 = 0 then
    begin
      a[i] := a[2];
      Break;
    end;
end;

Думаю что суть понятна. Вторая задача делается почти также.