Решить задачу при помощи паскаля

Question

Решить задачу при помощи паскаля

polinchik Ученик (95), открыт 2 дня назад

Нужно сделать данную матрицу при помощи вложенных циклов

Answer 1

kaiu Высший разум (117562) 2 дня назад

Такой вариант

Answer 2

 program test;
  var matrix: array of array of integer;
      i, j, n: integer;
begin
  read(n);

  setlength(matrix, n, n);
  for i := 0 to n div 2 - 1 do
    for j := 0 to n - 1 do begin
      matrix[2 * i, j] := j + 1;
      matrix[2 * i + 1, j] := n - j
    end;

  for i := 0 to n - 1 do begin
    for j := 0 to n - 1 do
      write(matrix[i, j], ' ');
    writeln
  end
end.

Answer 3

var i,j,n:integer;
begin
write('n: '); readln(n);
for i:=1 to n do
begin
for j:=1 to n do write(j*(i and 1)+(n-j+1)*(1-i and 1):3);
writeln
end;
end.