расчета элементов., зависает программка Опции

[Konsuela]

Задание такое:
Составить подпрограмму для определения числа элементов одномерного массива, предшествующих его первому отрицательному элементу.
Пишу программу, а после набора массива она зависает... может проблема в самой функции?

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;

[мисс_граффити]

у тебя конструкция из циклов странная. она и зацикливается.
сначала должен отработать внутренний цикл, и только потом произойдет смена i.
то есть на первом же положительном элементе цикл

repeat
k:=k+1;
until A[i]<0;

превратится в вечный.
смотри: если у тебя отрицательный на пятой позиции - можешь сказать, сколько перед ним положительных?
а если на восьмой?

то есть тебе достаточно найти его индекс - отдельно считать не нужно.
убери цикл for, а в repeat работай с i

а вообще - не забывай пользоваться тэгами.