Лабораторная работа №4

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

program massive;

var A: array [1..10] of real; i,n:integer; s,k:real;

begin s:=0;

writeln('vvedi n');

readln(n);

writeln('vvedi elementy');

for i:=1 to n do begin readln(A[i]);

s:=s+A[i]; end;

for i:=1 to n do begin k:=A[i]/s;

A[i]:=k; write(' ',A[i]:1:3); end; end.

Результат:

vvedi n

vvedi elementy

1 2 3 4 5 6 7 8 9 10

0.018 0.036 0.055 0.073 0.091 0.109 0.127 0.145 0.164 0.182

начало

s=0

n

i=1,n

да

A[i]

s=s+A[i]

нет

i=1,n

k=A[i]/s

A[i]=k

да

A[i]

нет

конец

Блок-схема