Паскаль Выведите на экран номер минимального элемента

Если Вы уверны, что в одномерном массиве будет элемент равный нулю, то

необходимо внести вот эти дополнения:

...

var

M : array [1 ... 10, 1 ... 10] of Byte;

B : array [1 ... 10] of Byte;

R, C, i : Byte;

...

for C : = 1 to 10 do begin

Write (B[C]:3) ;

if B[C]=0 then i:=C;

end;

WriteLn;

WriteLn ('Индекс элемента равного нулю i=', i:3) ;

keypressed

end.