Найти сумму элементов одномерного массива

[TadyT]

Помогите пожалуйста решить задачку:

Найти сумму элементов одномерного массива размером 10. Разделить каждый элемент массива на полученное значение. Результат
получить в том же массиве. Изобразите графически алгоритм и напишите программу для решения этой задачи.

[Sciv]

s:=0;
for i:=1 to 10 do s:=s+m[i];
for i:=1 to 10 do m[i]:=m[i]/s;