1 REM THIS PROGRAM APPEARS AT PAGE 67 OF THE ITALIAN VERSION OF
2 REM "PROGRAMMING IN BASIC" 1ST EDITION, BY BYRON S. GOTTFRIED 
10 REM AVERAGING OF AIR POLLUTION DATA
11 REM NOTE: THE ORIGINAL PROGRAM DATA WERE INPUT BY KEYBOARD
15 READ N
20 PRINT "N="N
40 LET S=0
50 PRINT
60 PRINT " T     Q"
70 PRINT
80 READ T1,Q1
85 PRINT T1;Q1
90 LET T0=T1
100 FOR I = 1 TO N-1
110 	READ T2,Q2
115	PRINT T2;Q2
120	LET Q3=(Q1+Q2)/2
130	LET S=S+Q3*(T2-T1)
140	LET T1=T2
150	LET Q1=Q2
160 NEXT I
170 LET T9=T2
180 LET A=S/(T9-T0)
190 PRINT
195 PRINT "AVERAGE AIR QUALITY="A;"TIME INTERVAL="T9-T0" HOURS"
200 DATA 20,0,12.2,2,12.5,4,11.9,6,13.5,7,22.4,8,31.4,9,57.7,10,84.4,11
210 DATA 68.0,12,51.6,13,46.6,14,43.1,15,39.2,16,44.7,17,62.9,18,88.0,19
220 DATA 71.4,20,59.0,22,43.5,24,28.7
400 END
