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

РЕШЕНИЕ:

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

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

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

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