Решить программу по информатике : дан одномерный массив 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;

Порядок переливания краски ( по шагово )  : шаг   перелива   -         1     |     2     |     3     |     4     |     5    |     6     |     7     |     8 ведро (12 л) -                 12         4       4       9       9       1       1       6 банка  (5 л)   -               0       0       5       0       3       3         5       0 ведро (8 л)   -               0       8       3       3       0       8       6       6

Получится такое < html> < head> < table border="1" width="500">       < tr >               < td width="150"> заголовок< /td>               < td width="350" > заголовок 1< /td>       < /tr>       < tr>               < td> ячейка 1< /td>               < td> ячейка 2< /td>       < /tr> < /table> < /head> < /html>