Составте проограмму которая ычисляет средний балл по информатике в классе.…

uses crt; var a, b, c, i, n: integer; s: array [1… 10000] of integer; begin clrscr; writeln ('Введите количество учеников'); read (n); for i: =1 to n do begin writeln ('Введите на какую оценку написал ', i, ' ученик'); read (s[i]); a: =a+s[i]; end; writeln ('Средний бал учеников равен ', a/n: 0:5); end.P.S. Надеюсь на благодарность и лучший ответ.