Составить подпрограмму для определения числа элементов одномерного массива, предшествующих его первому отрицательному элементу.
Пишу программу, а после набора массива она зависает... может проблема в самой функции?
function kol (A: mass; n: integer ):integer;
var
i, j:integer;
k:integer;
begin
k:=0;
for i:= 1 to n do
begin
repeat
k:=k+1;
until A[i]<0;
end;
kol:=k;
end;