Klavyeden Girilen N Elemanlı A Dizisini Bir k Katsayısı ile Carpıp B Dizisini Oluşturan ve Yazdıran Program

CLS : INPUT "Dizinin eleman says = ", n
DIM a(n), b(n): INPUT "Katsay = ", k
FOR x = 1 TO n
PRINT "A("; x; ")="; : INPUT "", a(x)
NEXT
FOR x = 1 TO n
b(x) = k * a(x): PRINT "B("; x; ")="; b(x)
NEXT