10 REM IL MIO QUARTO PROGRAMMA IN BASIC
20 REM RENDIMENTO SCOLASTICO
30 REM (C) 2021, WWW.VALOROSO.IT

50 PRINT "DIGITA IL NUMERO DI"
60 INPUT "VOTI (1-20)";NV
70 IF NV<1 OR NV>20 THEN PRINT "RI";: GOTO 50
80 PRINT: PRINT "DIGITA I VOTI:"
90 DIM V(20)
100 FOR CV = 1 TO NV
110 PRINT "VOTO #"; STR$(CV); " (0-10)";
120 INPUT V(CV)
130 IF V(CV)<0 OR V(CV)>10 THEN PRINT "RISCRIVI IL": GOTO 110
140 G=V(CV): GOSUB 400
150 NEXT CV

200 REM CALCOLI
210 SM=0: MI=V(1): MA=V(1)
220 FOR CV = 1 TO NV
230 SM=SM+V(CV)
240 IF V(CV)>MA THEN MA=V(CV)
250 IF V(CV)<MI THEN MI=V(CV)
260 NEXT CV
270 ME=SM/NV

300 REM OUTPUT
310 PRINT
320 PRINT "MEDIA VOTI:";STR$(ME)
330 G=ME: GOSUB 400
340 PRINT "VOTO MASSIMO:";STR$(MA)
350 G=MA: GOSUB 400
360 PRINT "VOTO MINIMO:";STR$(MI)
370 G=MI: GOSUB 400
380 END

400 REM GIUDIZIO VOTO
410 IF G<=2 THEN PRINT "IGNORANTE...": RETURN
420 IF G<=4 THEN PRINT "CAPRA...": RETURN
430 IF G<6 THEN PRINT "RIPASSA!": RETURN
440 IF G=10 THEN PRINT "GRANDE, TOP!": RETURN
450 IF G>=8 THEN PRINT "OTTIMO!": RETURN
460 PRINT: RETURN