Задача по TURBO...

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

 

Вот полноценная программа с заполнением массива с оценками вручную и вычислением среднего:
const n=30;
var
i,a:integer;
sum,sred:real;
mas:array [1..n] of integer;
f1:text;
begin
for i:=1 to n do
begin
read(a);
mas:=a;
end;
a:=0;
for i:=1 to n do
sum:=sum+mas;
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); можешь его  в свою программу подставить, только учти, чтобы переменные совпадали)))