Pascal ABC - Сформировать квадратную матрицу порядка n ( где n — четное число) по...

Question

Pascal ABC - Сформировать квадратную матрицу порядка n ( где n — четное число) по заданному образцу. Желательно побыстрей :D

---

Comments

Хм... советами, значит, воспользовались, а потом отметили, что это Вас оскорбило? Ну, ну... А я-то по простоте душевной написал программу, как Вам надо, уже было вставлять ответ начал - и на тебе! Ну что же, это как раз и называется "сам себе злобный буратино". Живите с этим.

Answer 1

Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doif ifor i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.