Помогите пожалуйста решить!!! Используя подпрограмму-функцию, определить число...

Question

Помогите пожалуйста решить!!!
Используя подпрограмму-функцию, определить число положительных элементов до первого отрицательного в массивах X(14), Y(15), Z(n).

Answer 1

Как-то так


function PositivesTillNegative(a:array of integer; n:integer):integer;
var k,i:integer;
begin
    k:=0;
    for i := 1 to n do begin
        if a[i]<0 then break;<br>        if a[i]>0 then k:=k+1;
    end;
    PositivesTillNegative:=k;
end;