Найдите сумму элементов одномерного массива, состоящего из 10 элементов.

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

результат получите в том же массиве. результат вывести в одной строке

Program z4;

var mas:array[1 ... 10] of real;

var s:real;

var i:integer;

begin

s:=0;

for i:=1 to 10 do

begin

write ('Введите ', i,' число: ') ;

readln (mas[i]) ;

s:=s+mas[i];

end;

writeln ('Новый массив: ') ;

for i:=1 to 10 do

begin

mas[i]:=mas[i]/s;

write (mas[i],' ') ;

end;

end.