Отыскать сумму и творение частей массива, приобретенных случайным образом из отрезка

Тоесть random() от -10 до 20?

да

На данный момент

Сколько частей в массиве? Или это вводится?

Живо

Ответ принят

Var n,i,k,k1:integer;   
a:array[1..1000]of integer;
 begin 
 k:=0; 
  k1:=1; 
  read(n); //СДЕСЬ ВВОДИТСЯ КОЛИЧЕСТВО ЭЛЕМЕНТОВ В МАССИВЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
  for i:=1 to n do 
  Begin   
  randomize; 
   a[i]:=random(31)-10;   
 end; 
  for i:=1 to n do   
 begin   
  k:=k+a[i];   
  k1:=k1*a[i]; 
  end; 
  for i:=1 to n do 
  write(a[i],' ');
   writeln(k);//СУММА
   writeln(k1); //Творение
 end.