Сформировать квадратную матрицу порядка n по заданному образцу - Turbo Pascal (33725)

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

Приветствую всех. Помогите пожалуйста решить задачку. Задание: Сформировать квадратную матрицу порядка n по заданному образцу: Вывод матрицы на экран оформить в виде процедуры. 1 n 1 n ... N 2 n-1 2 n-1 ... n-1 3 n-2 3 n-2 ... n-2 ................................... n-1 2 n-1 2 ... 2 n 1 n 1 ... 1 Заранее огромное спасибо!

Код к задаче: «Сформировать квадратную матрицу порядка n по заданному образцу - Turbo Pascal (33725)»

textual
var
  a: array[1..20,1..20] of integer;
  n,i,j: integer;
begin
  repeat
    write('Enter N: ');
    readln(n);
  until n in [1..20];
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if odd(j) then a[i,j]:=i else
        a[i,j]:=n-i+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

13   голосов, оценка 4.385 из 5


СОХРАНИТЬ ССЫЛКУ