Матрицы

[Ekaterina1992]

Матрицы

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

program n10;
uses crt;
const n=10;
var
B:array[1..8, 1..8] of integer;
i,j,k,m,l:byte;
flag:boolean;
begin clrscr;
for i:=1 to 8 do begin
for j:=1 to 8 do  begin
writeln('b[',i,',',j,']=');
readln(b[i,j]);
end;
end;
for i:=1 to 8 do begin
for j:=1 to 8 do
write (b[i,j]:4);
writeln;
end;
for i:=1 to 8 do
for j:=1 to 8 do
for l:=1 to 8 do
begin
flag:=true;
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
if (b[i,j]<>b[j,i])
then begin flag:=false;
break;
end;
end;
end;
if (flag=true) then writeln('success')
else writeln('failed');
end;

readln;
end.

 

[Vladimir_S]

Попробуйте так (фрагмент):

flag1:=true; {ввести еще одну булеву переменную}
for i:=1 to 8 do 
 begin
  flag:=true;
  j:=0;
  Repeat
    Inc(j);
    if b[i,j]<>b[j,i] then flag:=false; 
  Until (flag=false) or (j=8);
  if flag then 
   begin
    writeln('k= ',i);
    flag1:=false;
   end;
 end;  
if flag1 then writeln('No such lines/columns!');