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

Question

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

Answer 1

var a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 9 do

if a[i] mod 2=1 then a[i]:=a[i]+a[10];

writeln;
for i:=1 to 10 do write(a[i],' ');
end.