Question

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

Answer 1

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.