Написать программу в Паскале. Заполнить массив случайными величинами от - 100 до 100. Найти сумму элементоав массива.

Const n=10;

var a:array[1 ... n] of integer;

i, s:integer;

begin

Randomize;

writeln ('Массив A:') ;

for i:=1 to n do

begin

a[i]:=random (201) - 100;

write (a[i]:4) ;

end;

writeln;

s:=0;

for i:=1 to n do s:=s+a[i];

writeln ('s = ', s) ;

end.

Пример:

Массив A:

71 - 39 57 33 52 - 96 77 - 79 - 71 - 79

s = - 74