Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Найдите сумму элементов одномерного массива, состоящего из 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.