Автор: Bronislav

Bronislav — Tue, 28 Aug 2018 19:30:48 +0000

program Matrix13;

uses TaskMatrix;//код модуля в комментариях к задаче Matrix1

var
  a: intMatrix;
  m, n, k, i, j: integer;

begin
  m := 5;
  n := m;
  
  Randomize;
  FillMatrixByRandom(a, m, n);
  PrintMatrix(a, m, n);
  
  k := 0;
  
  while (k <= m - 1) and (k <= n - 1) do
  begin
    for j := 1 to n - k do
      Write(a[1 + k, j], ' ');//1+k<=m
    Writeln;
    for i := 2 + k to m do
      Write(a[i, n - k], ' ');//n-k>=1;
    Writeln;
    k += 1;
  end;

  Readln;
end.

program Matrix13;

uses TaskMatrix;//код модуля в комментариях к задаче Matrix1

var

a: intMatrix;

m, n, k, i, j: integer;

begin

m := 5;

n := m;

Randomize;

FillMatrixByRandom(a, m, n);

PrintMatrix(a, m, n);

k := 0;

while (k <= m - 1) and (k <= n - 1) do

begin

for j := 1 to n - k do

Write(a[1 + k, j], ' ');//1+k<=m

Writeln;

for i := 2 + k to m do

Write(a[i, n - k], ' ');//n-k>=1;

Writeln;

k += 1;

end;

Readln;

end.

Комментарии: Решаем задачи Абрамян на Паскале. Matrix13

Автор: Bronislav