Klavyeden Girilen N elemanli Bir A Dizisinin Tüm Elemanlarini Toplayan Program

CLS : INPUT "Dizi eleman sayısını girin :" , A

DIM X(A)

FOR Dongu = 1 TO A

PRINT "X(";Dongu;") = ";:INPUT "",X(Dongu)

NEXT Dongu

P=0 : PRINT

FOR Dongu=1 TO A

P=P+X(Dongu)

NEXT Dongu

PRINT "Dizi elemanlarının toplamı = ";P

END