Question

Дан одномерный массив из n элементов, которые случайные целые числа из промежутка -5 до 15. Определите сумму всех элементов.

Answer 1

Ответ:

Program n3;  

var q,w:integer;  

a:array [1..10]of integer;  

begin

 for q:=1 to 10 do begin            

a[q]:=random(20)-5;  

w:=w+a[q];  

 end;

 writeln(w);

end.

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -5, 15);

 a.Println.Sum.Println

end.