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