a[i,j]:=-2+random(4)+random; - здесь рандомите if i mod 2=1 then a[i,j]:=(i-1) * n + j else a[i,j]:= i * n - j + 1; - здесь перезаписываете (рандома как не бывало)
Упорядочивания здесь вообще нет.
Пишите полностью задание.
Листинг ни о чём.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.