Дельфи

[ainusya]

дана вещественная матрица размером nxm Определите номера строк все элементы ,которых-нули

[Stilet]

for i:=low(m) to high(m) do begin
 for j:=low(m[i]) to high(m[i]) do if m[i,j]<>0 then break;
 if (m[i,j]=0)and (j=high(m[i])) then write(j:5);
end;