Pascal ABC - Сформировать квадратную матрицу порядка n ( где n — четное число) по заданному образцу. Желательно побыстрей :D
Answers & Comments
koteraspa
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 i<j then a[i,j]:=0else a[i,j]:=n-i+j; for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.
Answers & Comments
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.