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

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