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.