первый нулевой элемент массива

[shelest]

Begin
repeat
if T[i]=0 then perviy:=i
until T[i]=0;

где ошибка подскажите плиз или правельный алгоритм

[Alex Cones]

While (I<>MatrixSize) And (A[I]<>0) do Inc(I);

Кажись так

[VilAm]

for i:=1 to n do
if a[i]=0 then 
begin
writeln(i);
break;
end;

ну а вот ваш

Begin
repeat
i:=i+1;
until T[i]=0;
perviy:=i;