В каждой из матриц поменять местами две строки - Pascal ABC

Формулировка задачи:

В каждой из матриц A(4x3),B(5x4) поменять местами две строки: в А вторую и третью строки,в В-первую и третью .

Код к задаче: «В каждой из матриц поменять местами две строки - Pascal ABC»

textual
type mtr=array[1..5,1..4] of integer;
procedure vvod(var a:mtr;m,n:byte;c:char);
var i,j:byte;
begin
writeln('Исходная матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end;
procedure obmen(var a:mtr;m,n,s1,s2:byte);
var i,j:byte;
    x:integer;
begin
for j:=1 to n do
 begin
  x:=a[s1,j];
  a[s1,j]:=a[s2,j];
  a[s2,j]:=x;
 end;
writeln('Обмен строк ',s1,' и ',s2);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end;
var a,b:mtr;
begin
vvod(a,4,3,'A');
obmen(a,4,3,2,3);
vvod(b,5,4,'B');
obmen(b,5,4,1,3);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ