Дан одномерный символьный масив размером N найдите в нём все элементы начинающиеся на букву А и составить из них слово! Кто решит скину небольшой призент)

CLS
RANDOMIZE TIMER
INPUT "n = ", n
DIM A(n, n)
PRINT "1 - BBECTI ELEMENTbI C KLABbI"
PRINT "2 - RANDOM"
INPUT BBOD
IF BBOD = 2 THEN
  FOR i = 1 TO n
      FOR j = 1 TO n
          A(i, j) = RND * 21 - 10
      NEXT j
  NEXT i
ELSE
  FOR i = 1 TO n
      FOR j = 1 TO n
          PRINT "A["; i; ","; j; "] = ";
          INPUT "", A(i, j)
      NEXT j
  NEXT i
END IF
CLS
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT USING "###.##"; A(i, j);
        PRINT " ";
    NEXT j
    PRINT
NEXT i
C = 1
FOR i = 1 TO n
    FOR j = 1 TO n
        IF A(i, j) <> A(j, i) THEN
          C = 0
        END IF
    NEXT j
NEXT i
IF C = 1 THEN
  PRINT "DA"
ELSE
  PRINT "NET"
END IF
END

Реализацию на Си пишите сами, я его не знаю, могу подсказать алгоритм.
Нужно обе переменные разделить на действительную часть и мнимую.
A = A1 + j*A2; A1 = 1; A2 = -2
B = B1 + j*B2; B1 = 1; B2 = 3
И точно также все результаты вычислений делятся на две части.
И каждую скобку записывай в отдельную пару переменных, а на последнем шаге всё сложишь и умножишь.
Можно и подпрограммы сделать на сумму и произведение.
Сумма
S = A + B = (A1 + B1) + j*(A2 + B2); S1 = A1 + B1; S2 = A2 + B2
Произведение
P = A*B = (A1*B1 - A2*B2) + j*(A1*B2 + A2*B1)
P1 = A1*B1 - A2*B2; P2 = A1*B2 + A2*B1
Квадраты
AA = A*A = (A1*A1 - A2*A2) + j*(2*A1*A2)
AA1 = A1*A1 - A2*A2; AA2 = 2*A1*A2
BB = B*B = (B1*B1 - B2*B2) + j*(2*B1*B2)
BB1 = B1*B1 - B2*B2; BB2 = 2*B1*B2