Дан целочисленный массив размера N. Увеличить все нечетные числа содержащиеся в массиве на исходное значение последнего нечётного числа. Если нечётные числа в массиве отсутствуют, то оставить массив без изменений

Const

n=10;

var

a:array[1 ... n]of integer;

i, k:integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to n do

begin

a[i]:=random (10) ;

write (a[i]:4) ;

if a[i] mod 2>0 then k:=a[i];

end;

writeln;

if k>0 then

for i:=1 to n do

if a[i] mod 2>0 then a[i]:=k+a[i];

writeln ('Конечный массив:') ;

for i:=1 to n do write (a[i]:4) ;

end.