Программаны Delphi тілінде құр:N бүтін санды квадрат матрицасы берілген. Сол квадрат матрицаның әр жолындағы бірінші оң элементтен құралған В(і) массивін құр. Егер жолда оң элемент болмаса В(і)=0 деп ал.
