Заполнить массив случайными числами в интервале [-80,70] и подсчитать сумму всех этих...

Question

Заполнить массив случайными числами в интервале [-80,70] и подсчитать сумму всех этих чисел. Нужна блок-схема, программу я написал(прикрепил к вопросу)

---

Answer 1

Ответ:

Для удобства построения диаграммы пришлось немного изменить Ваш код (цикла достаточно одного):

const N=10;

var A: array[1..N] of integer;

i:byte;

s: integer;

begin

randomize;

for i:=1 to N do

 begin

 a[i]:=random(-80,70);

 s:=s+a[i];

 write(a[i]:5);

 end;

writeln;

writeln('Сумма элементов массива = ',s);

end.

---