Question

решить задачу на Паскаль Вывести исходный двумерный массив (размерность 5х5, случайные от числа 0 до 9). Затем транспонировать его и вывести снова. Для решения задачи(или подзадачи)
желательно использовать функцию или процедуру

Answer 1

pascal

Объяснение:

const n = 5; m = 5;

var a: array [1..n, 1..m] of integer;

procedure fillarray(k: integer);

var i, j: integer;

begin

randomize;

for i := 1 to n do

  for j := 1 to m do a[i, j] := random(k);

end;

procedure transarray();

var i, j, k: integer;

begin

for i := 1 to n do

 for j := i+1 to m do

   begin

    k := a[i, j];

    a[i, j] := a[j, i];

    a[j, i] := k;

   end;

end;

procedure printarray();

var i, j: integer;

begin

 for i:=1 to n do

 begin

  for j:=1 to m do

    write(a[i, j]:3);

  writeln;

 end;

 writeln;

end;

begin

 fillarray(10);

 printarray();

 transarray();

 printarray();

end.