ПОМОГИТЕ РЕШИТЬ ПРОГРАММУ ПО ИНФОРМАТИКЕ : Дан одномерный массив S(N). Определить количество элементов, равных среднему значению массив S(N). Заменить эти элементы на 100

for i:= 1 to n do begin sr_arf = sr_arf +s[i]; - считаем сумму всех элементов end; sr_arf=sr_arf/n; - считаем среднее арифметичкое for i:= 1 to n do if (s[i] = sr_arf) then - если текущий элемент равен среднему арефм-му begin kol:=kol+1; считаем количество элементов s[i] := 100; присваиваем текущему элементу 100 end;