Question

Найти сумму элементов одномерного массива. Элементы массива – случайные числа на отрезке [-5,7].

Answer 1

var a:array[1..100] of integer;i,n:integer;k,ar:real;beginreadln(n);randomize;for i:=1 to n do begina[i]:=-5+random(13);write(a[i]:3);end;writeln;k:=0; ar:=0;for i:=1 to n dok:=k+a[i];writeln(k);end.