Записать положительные элементы массива X в массив Y

[rap1st]

Добрый день!

Помогите, пожалуйста, с заданием.

Необходимо: Записать положительные элементы массива X в массив Y. Вычислить сумму элементов массива X и произведение элементов массива Y.

[p51x]

std::copy_if + std::accumulate + std::accumulate & std::multiplies<T>()

[newerow1989]

var i,s,p:integer;
    x,y:array of integer;
begin
   Randomize;
   SetLength(x,5+Random(5));
   For i:=Low(x) to High(x) do
   begin
      x[i]:=-10+Random(21);
      Write(x[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   For i:=Low(x) to High(x) do
      If x[i]>0 then
      begin
         SetLength(y,High(y)+2);
         y[High(y)]:=x[i];
         Write(y[High(y)]:3,'  ');
      end;
   Writeln;
   Writeln;
   s:=0;
   For i:=Low(x) to High(x) do
      s:=s+x[i];
   Writeln('s = ',s);
   p:=1;
   For i:=Low(y) to High(y) do
      p:=p*y[i];
   Writeln('p = ',p);
   Readln;
end.