zadach83.BAS

{* Задача83 *}

REM basic

' Имеется экзаменационная ведомость по 4 группам студентов. В каждой по 25 человек. Вывести средний балл для каждой группы и подсчитать общий средний балл.


10 CLS
30 S = 0
40 For I = 1 To 4
50 PRINT "Группа №"; I
60 SGR = 0
70 For J = 1 To 25
80 INPUT "Балл очередного студента ="; BALL
90 If BALL < 0 Then PRINT "Неверное значение!": GoTo 80
100 SGR = SGR + BALL
110 Next J
120 S = S + SGR
130 PRINT "Средний балл в группе №"; I; "равен"; SGR / 25
140 Next I
150 PRINT "Общий средний балл равен"; S / 4
160 End