№ 1
Составить программу расчета средней арифметической взвешенной по формуле:
x = ∑xf / ∑f ,
где x − варианты, f − частоты.

РЕШЕНИЕ:

Программа расчета средней арифметической взвешенной с использованием оператора условного перехода имеет вид:

10 PRINT "РАСЧЕТ СРЕДНЕЙ АРИФМЕТИЧЕСКОЙ ВЗВЕШЕННОЙ"
20 INPUT N
30 LET SXF=0 : LET SF=0
40 LET I=1
50 INPUT X,F
60 LET SXF=SXF+X*F
70 LET SF=SF+F
80 LET I=I+1
90 IF I<=N GOTO 50
100 X=SXF/SF
110 PRINT X
120 END

При использовании операторов цикла программа принимает вид:

10 PRINT "РАСЧЕТ СРЕДНЕЙ АРИФМЕТИЧЕСКОЙ ВЗВЕШЕННОЙ"
20 INPUT N
30 LET SXF=0 : LET SF=0
40 FOR I=1 TO N STEP 1
60 INPUT X,F
70 LET SXF=SXF+X*F
80 LET SF=SF+F
90 NEXT I
100 X=SXF/SF
110 PRINT X
120 END