Question

помогите неделю болел​

Answer 1

Program arrSum;

var a:array of integer;

i,k:integer;

begin

setLength(a,30);

for i:=0 to High(a) do

begin

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

end;

for i:=0 to 6 do

k:= k + a[i];

writeln(k);

end.