CLS
INPUT "Vvedite razmer matrizy...", n
DIM a(n, n)
PRINT "Zapolnenie matrizy:"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT "("; i; ","; j; ")"; "elementy matrizy... ";
INPUT "", a(i, j)
NEXT
NEXT
PRINT "Vvedennaj vami mairiza"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
s = s + a(i, n - i + 1)
NEXT
PRINT "Summa pobochnoi diagonali = "; s
FOR i = 2 TO n STEP 2
FOR j = 1 TO n
a(i, j) = a(i, j) - s
NEXT
NEXT
PRINT "Polychennaj matriza "
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT