Если Вы уверны, что в одномерном массиве будет элемент равный нулю, то необходимо внести вот эти дополнения: . . 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.
необходимо внести вот эти дополнения:
. .
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.