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

Question

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

Answer 1

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.