Нужна ! написать программу в кумире,которая меняет главную и побочную диагональ матрицы размером 3х3.

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