Заменить элементы массива, кратные 3, на сумму нечетных по значению элементов

Я хз,правильно,или нет,но у меня так получилось

1}элемент 223

2}элемент 74.3

3}элемент 24.7

4}элемент 8.2

5}элемент 2.7

6}элемент 0.9

Объяснение:

int a[ 16 ] =[6;-9;9;39;15;21;27;33;45;51;57;63;69;75;81;87]

//Дано 16 элементов массива,все числа нечётные,так,как в условии сказано,заменить на сумму(а сумма это сложение) нечетных по значению элементов(которые даны выше) берём и складываем их и получается 663 делим на 3,чтобы нечетные числа получились,делишь и получаются числа,которые в самом начале...

//В программировании округлять можно если шо ;d

PascalABC.NET

begin

 var n := ReadInteger('n=');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var so := a.Where(p -> p.IsOdd).Sum;

 for var i := 0 to a.High do

   if a[i] mod 3 = 0 then

     a[i] := so;

 a.Println

end.