13.05.2008, 22:24
общий
это ответ
<i>Здравствуйте, <b>Вася Рогов Иванович</b>!</i>
Пример с комментариями находится в приложении.
<em>Удачи!</em>
Приложение:
program Q136707;uses Crt;const N = 3;type TMatrix = array[1..N, 1..N] of Integer; TVector = array[1..N] of Integer;{Процедура ввода квадратной матрицы}procedure inputMatrix(var Mx: TMatrix);var i, j: Integer;begin for i:= 1 to N do for j:= 1 to N do begin write(‘M[‘, i, ‘, ‘, j, ‘] = ‘); readln(Mx[i, j]); end;end;{Процедура формирования вектора}procedure formVect(var V: TVector; const Mx: TMatrix);var i, j, zs: Integer;begin for i:= 1 to N do begin zs:= 0; for j:= 1 to N do if (Mx[i, j] = 0) then Inc(zs); V[i]:= zs; end;end;var {Квадратная матрица} M: TMatrix; {Вектор} V: TVector; i: Integer;begin {Очищаем экран} ClrScr; {Заполняем матрицу} inputMatrix(M); {Формируем вектор} formVect(V, M); {Выводим вектор на экран} for i:= 1 to N-1 do write(V[i], ‘, ‘); writeln(V[N]); {Ожидаем, когда пользователь нажмет любую кнопку} writeln; writeln(‘Press any key...‘); readln;end.