Консультация № 136707
13.05.2008, 21:13
0.00 руб.
0 1 1
Помогите написать процедуру введения квадратной матрицы порядка n и
процедуру формирования вектора, элементы которого
равняются количеству нулевых элементов соответствующих
рядов квадратной матрицы.

Обсуждение

Неизвестный
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.
Форма ответа