Даны 2-е матрицы размерностью 40,40. Выполнить перестановку первой и последней строки.

[V1rus.25]

Даны 2-е матрицы размерностью 40,40.
Выполнить перестановку первой и последней строки,используя процедуру.

[Hacker19_90]

если в каждой матрице, то так

for j := 1 to 40 do
begin
  a[1,j] := a[1,j] xor a[40, j];
  a[40,j] := a[1,j] xor a[40, j];
  a[1,j] := a[1,j] xor a[40, j];
end;

[V1rus.25]

а через процедуру как?

[Hacker19_90]

таким же способом

[Stilet]

procedure cao;var j:byte; begin
for j := 1 to 40 do
begin
  a[1,j] := a[1,j] xor a[40, j];
  a[40,j] := a[1,j] xor a[40, j];
  a[1,j] := a[1,j] xor a[40, j];
end;end;

[V1rus.25]

А целиком как?????
У меня что-то нечего не выходит.

[Hacker19_90]

ну показывайте! чего вы там сделали!

[V1rus.25]

program lz;
uses Crt;
var i,j,b,n,m:integer;
var a=array[1..100,1..100]of integer;
var b=array[1..40]: byte;
procedure cao;var j:byte; begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for j:=1 to m do
begin
b:=a[1,j];
a[1,j]:=a[n,j];
a[n,j]:=b;
end;
begin
clrscr;
writeln('vvedit rozmir matrici 1');
readln(n,m);
writeln('Vvedit matricu po ryadkah');
writeln('vvedit rozmir matrici 2');
readln(n,m);
writeln('Vvedit matricu po ryadkah');
writeln('Rezyltat');
for i:=1 to n do
for j:=1 to m do
write(a[i,j],' ');
end.

По моему такой бред!!!

[BDA]

uses
  Crt;

type
  tarray = array[1..101, 1..100] of integer;
  {101 строка - буфер}

var
  n1, m1, n2, m2: integer;
  a, b: tarray;

procedure readmatrix(var a: tarray; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('Cell [', i, ',', j, ']: ');
      readln(a[i, j]);
    end;
end;

procedure printmatrix(var a: tarray; n, m: integer);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:5, ' ');
    writeln;
  end;
end;

procedure change(var a: tarray; n: integer);
begin
  a[101] := a[1];
  a[1] := a[n];
  a[n] := a[101];
end;

begin
  clrscr;
  writeln('Input size of first matrix:');
  readln(n1, m1);
  writeln('Input first matrix:');
  readmatrix(a, n1, m1);
  writeln('First matrix:');
  printmatrix(a, n1, m1);
  change(a, n1);
  writeln('First matrix (rows edited):');
  printmatrix(a, n1, m1);
  
  writeln('Input size of second matrix:');
  readln(n2, m2);
  writeln('Input second matrix:');
  readmatrix(b, n2, m2);
  writeln('Second matrix:');
  printmatrix(b, n2, m2);
  change(b, n2);
  writeln('Second matrix (rows edited):');
  printmatrix(b, n2, m2);
  
  readln;
end.

[V1rus.25]

Спасибо за помощь!!!!