найдите сумму элементов одномерного массива, состоящего из 10 элементов.
разделите каждый элемент исходного массива на полученное значение.
результат получите в том же массиве.результат вывести в одной строке

program z4;var mas:array[1..10] of real;var s:real;var i:integer;begins:=0;for i:=1 to 10 dobeginwrite('Введите ',i,' число: ');readln(mas[i]);s:=s+mas[i];end;writeln('Новый массив: ');for i:=1 to 10 dobeginmas[i]:=mas[i]/s;write(mas[i],' ');end;end.