QBasic Klavyeden okunan 2 sayı arasındaki sayıların adedini toplamını ve ortalamasını

[Esque]

Klavyeden okunan 2 sayı arasındaki sayıların adedini toplamını ve ortalamasını bulan ve ekrana yazan basic programı

iki sayının toplamını yaptım ama adedini ve ortalamasını yapamdım yardım edermisiniz o iki işlemi nasıl yaptıracam

CLS

TOPLAM=0

INPUT “IKI SAYI GİRİN”,B,S

FOR I=B TO S

        TOPLAM=TOPLAM+I

NEXT I

PRINT B; S; “ARASINDAKİ SAYILARIN TOPLAMI=”;TOPLAM

[Pardus61]

Klavyeden okunan 2 sayı arasındaki sayıların adedini toplamını ve ortalamasını bulan ve ekrana yazan basic programı

iki sayının toplamını yaptım ama adedini ve ortalamasını yapamdım yardım edermisiniz o iki işlemi nasıl yaptıracam

CLS

TOPLAM=0

INPUT “IKI SAYI GİRİN”,B,S

FOR I=B TO S

        TOPLAM=TOPLAM+I

NEXT I

PRINT B; S; “ARASINDAKİ SAYILARIN TOPLAMI=”;TOPLAM

---

CLS
TOPLAM=0
ADET =0
ORTALAMA =0
INPUT “IKI SAYI GİRİN”,B,S
IF B<S THEN
    FOR I=B TO S
        TOPLAM=TOPLAM+I
        ADET=ADET+1
    NEXT I
ORTALAMA= TOPLAM/ADET
PRINT B; S; “ARASINDAKİ SAYILARIN TOPLAMI=”;TOPLAM
PRINT B;S; " SAYİLARİNİN ARASİNDAKİ SAYİ ADEDİ=";ADET
PRINT B;S; "ARASİNDAKİ SAYİLARİN ORTALAMASİ="; ORTALAMA
ELSE
    FOR I=S TO B
        TOPLAM=TOPLAM+I
        ADET=ADET+1
    NEXT I
ORTALAMA= TOPLAM/ADET
PRINT S; B; “ARASINDAKİ SAYILARIN TOPLAMI=”;TOPLAM
PRINT S; B; " SAYİLARİNİN ARASİNDAKİ SAYİ ADEDİ=";ADET
PRINT S; B; "ARASİNDAKİ SAYİLARİN ORTALAMASİ="; ORTALAMA
END IF


Deneme fırsatım olmadı ama bu mantıkla düzenlenebilir sanki....