Массив

[shilven]

народ вот задание

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

имеется сама процедура

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;


а само тело программы не могу составить помогите плз!!!!!!

[kuy]

Условие задачи не совсем понял, но тело програмы написал.(изменил вносимые данные в процедуру, так вроди же одна матрица дана). Но вот незнаю правильно ли работает процедура)

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=8;
type matrix=array[1..n,1..n] of integer;
procedure trans(b:matrix);
 var
 i,j,k,p:integer;
 a:matrix;
 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('kolichestvo k-ih strok matrici, kotorie sovpadaut s k-im stolbcom = ', k);
 end;
const m:matrix =
((1,1,1,4,5,6,7,8),
 (1,1,3,4,5,6,7,8),
 (1,1,3,4,5,6,7,8),
 (4,5,6,7,8,9,0,1),
 (5,6,7,8,9,0,1,2),
 (6,7,8,9,0,1,2,3),
 (7,8,9,0,1,2,3,4),
 (8,9,0,1,2,3,4,5));
begin
trans(m);
readln;
end.

[shilven]

спасибо!!!!

[Слава Кандратьев]

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

[kuy]

shilven, так как нужно работает программа??
Слава Кандратьев, вобщето не плохо было бы новую тему создать, ну вот код, розбирайся:

program max;
{$APPTYPE CONSOLE}
const n=8;
      m:array[1..n,1..n] of integer =
((1,1,1,4,5,6,7,8),
 (1,1,3,4,5,6,7,8),
 (1,1,3,4,5,6,7,8),
 (4,5,6,7,16,9,0,1),
 (5,6,7,8,9,0,1,2),
 (6,7,8,9,59,1,2,3),
 (7,8,9,0,1,2,3,4),
 (8,9,0,1,22,3,4,5));
 var i,j,maxi,maxj:integer;
begin
writeln('Matrix:');
maxi:=1; maxj:=1;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(m[i,j]:4);
    if m[i,j]>m[maxi,maxj] then
     begin
      maxj:=j;
      maxi:=i;
     end;
   end;
  writeln;
 end;
writeln;
writeln('Stroka ',maxi,' s naibilshum elementom.');
readln;
end.