Матрицы

[Folayt]

Дана квадратная матрица А порядка n. Составить программу, которая находит минимальный элемент и все элементы, расположенные в одной строке и в одном столбце с минимальным, заменяет на минимальное значение. Учесть, что значения в массиве не повторяются.

[VIK_aka_TOR]

почитай меня

[Folayt]

Сообщение от VIK_aka_TOR

почитай меня

спасибо за то что напомнил.
я уже читал эту тему.

[VIK_aka_TOR]

и на основе всего прочитанного не появилось никаких мыслей и наработок?

[Folayt]

Сообщение от VIK_aka_TOR

и на основе всего прочитанного не появилось никаких мыслей и наработок?

увы нет никаких мыслей

[Folayt]

Сообщение от VIK_aka_TOR

и на основе всего прочитанного не появилось никаких мыслей и наработок?

может поможете найти ошибку в одной из моих программ?

[VIK_aka_TOR]

я еще ни одной из ваших программ и не видел...
так что все может быть...

[Folayt]

Для заданной матрицы размером 8×8 найти такие k, что k-я строка матрицы совпадает с k-ым столбцом. Найти сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент.
Вроде матрицу составляет правильно. Только не могу понять чего нужно добавить чтобы сумму считало

program matritsa;
uses crt;
const n=8;
type
matr= array[1..n,1..n] of integer;
var
a: matr;
i, j, k : integer;
Procedure findk ( a:matr; var k:integer );
var i, j: integer;
begin
for i:=1 to n do begin
k:=i;
for j:=1 to n do
if A[i,j] <> A [j,i] then begin
k:=0;
if a[j,j]<0 then
k:=k+j;
break;
end;
if k>0 then break;
end;
end;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random(10)-2;
end;
findk(a, k);
writeln('k=',k);
writeln;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readkey;
end.