Дан массив n целых чисел.
var
a: array [1 .. n] of integer;
b: bool;
.. .b := true;
s := 0;
for i := 1 to n do
begin
if odd(a[i]) and b then
begin
b := false;
o := i;
end;
inc(s, a[i]);
end;
s := round(s / n);
// уже непомню в паскале функции округления, но помоему round() там есть :\
if o < n then
a[o + 1] := s;