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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

как-то так 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; if a[i]>0 then k:=k+1; end; PositivesTillNegative:=k; end;