Преобразование матриц

[bpystep]

народ подскажите что неправильно

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

program lab_1;
uses crt;

const n=8;
type
 matr = array[1..n,1..n] of integer;
 matrtr = array[1..n,1..n] of integer;
 
{формирование матрицы}
procedure formir(var a:matr;k:integer);
var
 i,j:integer;
begin
 randomize; {включаем генератор случайных чисел}
 for i:=1 to k do {генерируем матрицу}
  for j:=1 to k do
   a[i,j]:=Random(20)-10;
end;

{вывод матрицы}
procedure vivod(a:matr;k:integer);
var
 i,j:integer;
begin
 for i:=1 to k do
  begin
   for j:=1 to k do
    write(a[i,j]:4);
   writeln;
  end;
end;

procedure trans(var a:matr;b:matrtr);
var
i,j,k,p:integer;
begin
p:=0;k:=0;
for i := 1 To n do
for j := 1 To n do
a[i,j] :=b[j,i];
for i:=1 to n do begin
    for j:=1 to n do
        if  (a[i,j]=a[j,i]) then inc(p);
 if p=n then inc(k);
end;
writeln('количество k-ых строк матрицы, которые совпадает с k-м столбцом = ', k);
end;

function kolvo(a:matr):integer;
var
 i,j,s:integer;
begin
s:=0;
for i:=1 to n do
 for j:=1 to n do
        if (a[i,j]<0) then
           for j:=1 to n do
               s:=s+a[i,j];
writeln('Сумма элементов строки содержащей хотя бы один отрицательный элемент = ',s);
end;
var
 a:matr;
 b:matrtr;
 i:integer;
begin
 clrscr;
 formir(a,n);
 writeln('Квадратная матрица: ');
 vivod(a,n);
 trans(a,b);
 kolvo(a);
end.

Ответы выдаёт неправильные.

[Stilet]

Для заданной матрицы размером 8 на 8 найти такие k,
что k-я строка матрицы совпадает с k-м столбцом

Хм. Я лично так это вижу:

procedure trans(var a:matr;b:matrtr);
var
i,j,k,p:integer;
begin
p:=0;
for i:=1 to n do
    for j:=1 to n do
        if  (a[i,j]=a[j,i]) then inc(p);
writeln('количество k-ых строк матрицы, которые совпадает с k-м столбцом = ', p);
end;

[bpystep]

Я тоже так пытался делать, но ответ паскаль выдаёт всегда разный, и даже если нет одинаковых строк со столбцами, паскаль выдал мне ответ 10. хотя максимум сколько он может выдать, это 8, по логике то вещей.

З.Ы. со вторым пунктом я разобрался

[razzmatazz]

if (a[i,j]=a[j,i]) then inc(p);

как я понял вы тут считаете кол-во одинаковых элементов, причем тут количество k-ых строк матрицы, которые совпадает с k-м столбцом. Надо делать если все 8 элементов совпадают то inc(k) и тогда его выводить.

[bpystep]

я понял твою идею, но как её реализовать?

[Stilet]

Немного подправил:

procedure trans(var a:matr;b:matrtr);
var
i,j,k,p:integer;
begin
p:=0;k:=0;
for i := 1 To n do
for j := 1 To n do
a[i,j] :=b[j,i];
for i:=1 to n do begin
    for j:=1 to n do
        if  (a[i,j]=a[j,i]) then inc(p);
 if p=n then inc(k);
end;
writeln('количество k-ых строк матрицы, которые совпадает с k-м столбцом = ', k);
end;

[bpystep]

Спасибо огромное товарисчи выше представленый код поправлен

[vector]

Мне кажется должно быть так (не компилировал ):

procedure trans(a:matr);
var
i,j,k,p:integer;
begin
k:=0;
for i:=1 to n do begin
  p := 0;
  for j:=1 to n do
    if  (a[i,j]=a[j,i]) then inc(p);
  if p=n then inc(k);
end;
writeln('количество k-ых строк матрицы, которые совпадает с k-м столбцом = ', k);
end;

function kolvo(a:matr):integer;
var
 i,j,s,t,k:integer;
begin
s:=0;
for i:=1 to n do begin
  t:=0; k:=0;
  for j:=1 to n do begin
    t:=t+a[i,j];
    if a[i,j] < 0 then inc(k);
  end;
  if k>0 then
    s:=s+t;
end;
writeln('Сумма элементов строки содержащей хотя бы один отрицательный элемент = ',s);
end;

[Stilet]

Мне кажется должно быть так

Согласен, провтыкал.