Question

Дан целочисленный массив размера N. Преобразовать его прибавив к нечетным числам последний элемент. Последний элемент массива не изменять. Pascal

Answer 1

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,10,49); a.Println;
  var last:=a[n-1];
  for var i:=0 to n-2 do
    if Odd(a[i]) then a[i]+=last;
  a.Println
end.

Тестовое решение:
n= 15
17 45 34 38 40 30 31 18 30 46 27 39 32 37 30
47 75 34 38 40 30 61 18 30 46 57 69 32 67 30