Форум АНТИЧАТ - Проблема с матрицей есть пример но он не работает

Проблема с матрицей есть пример но он не работает

09.12.2009, 22:05

NTFF

Новичок

Регистрация: 09.12.2009

Сообщений: 23

Провел на форуме:
42989

Репутация: 0

Проблема с матрицей есть пример но он не работает

в каждом столбце и каждой строке матрицы содержица строго по одному нулевому элементу. Перестановкой строк добиться расположение всех нулей по главной диагонали. В программе должна присутствовать проверка чтоб в строке был строго один ноль, в противном случае цикл не выполняться. матрица 5*5 пользователь сам ее вводит

написать нужно в форме процедур

есть то что питался сделать но что там не так не знаю

Код:

BEGIN
clrscr;
write('Vvedite matrix A: ');
for i:=1 to 5 do
for j:=1 to 5 do
read (A [i,j]);

for i:=1 to 5 do
for etap:=1 to 5 do
if (A[i,etap]=0)
then findrow:=i;
for j:=1 to 5 do
begin
c:=(A[etap,j]);
A[etap,j]:=A[findrow,j];
A[findrow,j]:=c;
write (A[findrow,j]);

Последний раз редактировалось slesh; 10.12.2009 в 10:24.. Причина: [code][/code]