Программу написал HRAshton. Я немного изменилалгначцелтаб арр[1:3, 1:3]цел к, п, шнц для ш от 1 до 3 нц для к от 1 до 3 арр[ш, к] := int(rnd(900)+100) вывод арр[ш, к], ' ' кц вывод нскцнц для ш от 1 до 3 если ш<>2 то п := арр[ш, 1] арр[ш, 1] := арр[ш, 3] арр[ш, 3] := п всекцвывод нс, нснц для ш от 1 до 3 нц для к от 1 до 3 вывод арр[ш, к], ' ' кц вывод нскцкон