Версия для печати темы

Автор: maksonowa 16.01.2017 1:33

написать программу которая формирует квадратную матрицу порядка n по заданному образцу. Заранее спасибо
1 2 3 ... n
n n-1 n-2 ... n
1 2 3 ... n
n n-1 n-2 ... 1
... ... ... ... ...
n n-1 n-2 ... 1

Автор: Федосеев Павел 16.01.2017 2:32

program test;

var
  i, j: integer;
  Delta: integer;
  n: integer;
  M: array [1..100, 1..100] of integer;
begin
  readln(n);
  Delta := 1;
  for i := 1 to n do
  begin
    if odd(i) then
      M[i, 1] := 1
    else
      M[i, 1] := n;
    for j := 2 to n do
      M[i, j] := M[i, j - 1] + Delta;
    Delta := -Delta;
  end;

  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(M[i, j]: 3);
    writeln;
  end;
end.

Автор: maksonowa 16.01.2017 2:51

Цитата(Федосеев Павел @ 15.01.2017 22:32)

спасиииииибо