Ввести матрицу A(5*5). ПОменять местами значения компонентов матрицы, симметричных относительно главной диагонали — PureBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DIM A(1 TO 5, 1 TO 5)
FOR i = 1 TO 5
  For j=1 TO 5
    PRINT "A("; i; ","; j; ") = "
    INPUT "", A(i,j)
  NEXT j
NEXT i
  
For i = 1 to 5
  For j=1 to 5
    If i>j Then
      tmp=A(i,j)
      A(i,j)=A(j,i)
      A(j,i)=tmp
    End if
  Next j
Next i

Похожие записи/страницы:

Leave a Comment