Вычислить z=s1+s2/2, где s1-сумма положительных элементов массива X(8); s2-сумма отрицательных элементов массива Y(10) . обе суммы

[Лидия 188]

Вычислить z=s1+s2/2, где s1-сумма положительных элементов массива X(8); s2-сумма отрицательных элементов массива Y(10) . обе суммы вычислять в одной подпрограмме.

[newerow1989]

function summ(p:array of integer;znak:integer):integer;
var i:integer;
begin
   Result:=0;
   For i:=Low(p) to High(p) do
      If znak*p[i]>0 then
         Result:=Result+p[i];
end;

var x:array[1..8] of integer;
    y:array[1..10] of integer;
    i,s1,s2:integer;
    z:real;
begin
   Randomize;
   For i:=1 to 8 do
   begin
      x[i]:=-10+Random(21);
      Write(x[i],'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 10 do
   begin
      y[i]:=-10+Random(21);
      Write(y[i],'  ');
   end;
   Writeln;
   Writeln;
   s1:=summ(x,1);
   s2:=summ(y,-1);
   z:=s1+s2/2;
   Writeln(z:5:5);
   Readln;
end.

Сойдет?