Вставить среднее значение массива после первого нечётного элемента -Pascal(Паскаль)

Дан массив 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;

Leave a Comment

45 − = 37