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

0 голосов
149 просмотров

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


image

Информатика (1.3k баллов) | 149 просмотров
0

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

Дан 1 ответ
0 голосов

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. 

(394 баллов)