Задача по TURBO PASCAL! СРОЧНОНаписать программу, Вычислить средний балл ученика,…

Вот полноценная программа с заполнением массива с оценками вручную и вычислением среднего: const n=30; vari,a: integer; sum,sred: real; mas: array [1… n] of integer; f1: text; beginfor i: =1 to n dobeginread (a); mas[i]: =a; end; a: =0; for i: =1 to n dosum: =sum+mas[i]; sred: =sum/n; assign (f1,'itog.txt'); rewrite (f1); write (f1,sred); close (f1); read; end. Кол-во оценок можешь подправить в строке const, а вообще момент записи в файл начинается отсюда: assign (f1,'itog.txt'); rewrite (f1); write (f1,sred); close (f1); можешь его в свою программу подставить, только учти, чтобы переменные совпадали)