Question

Найти сумму и произведение элементов массива, полученных случайным образом из отрезка [-10;20] Паскаль. Написать программу
Помогите решить, пожалуйста. Срочно!

Answer 1

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.