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

Question

Дан целочисленный массив из 10 целых чисел. Преобразуйте его, прибавив к нечетным числам значение последнего элемента. Последний элемент массива оставьте без изменений.(В Паскале)

Answer 1

var
  m : array [1..10] of Integer;
  i : Integer;
begin

// Здесь заносишь значения в массив.

  for i := 1 to 9 do
    if ( m[i] mod 2 ) <> 0 then m[i] := m[i] + m[10];

end.