1. найти произведение положительных элементов массива a(16), удовлетворяющих условию: с< =ai< = d.

var a:array [1..16] of integer;

i,s,c,d:integer;

Begin

  randomize;

  read(c,d);

  for i := 1 to 16 do begin

    a[i]:= random(d+c) - c;

    if a[i]>0 then s:= s + a[i];

  end;

  writeln(s);

End.