Вычислить средний балл учеников класса, если известны оценки каждого ученика по математике, русскому языку и физике. Распечатать список учеников, имеющих средний балл выше среднего в классе.
чё то у меня уже башка плохо соображает, помогите где у меня ошибка???
Код
program lab100301;
uses crt;
type tablica=record
name:string[10];
sred,sred1:real;
rus,math,fiz:byte;
end;
var a:tablica;
mas:array[1..30] of tablica;
s,n:integer;
i:integer;
begin
clrscr;
writeln('введите количество учеников ');
readln(n);
for i:=1 to n do
with mas[i] do
begin
write('фамилия ',i,'-го ученика : ');
readln(name);
write('русский язык: ');
readln(rus);
write('математика : ');
readln(math);
write('физика : ');
readln(fiz);
sred:=(rus+math+fiz)/3;
writeln('sredni bal uchenika ' , name,' ', sred:3:1);
end;
for i:=1 to n do
with mas[i] do
begin
s:=s+sred[i];
writeln('obshi sredni ocenka',sred1);
end;
writeln('');
writeln('ученики чей средний бал выше среднего ');
writeln('');
writeln(' ________________________ ');
writeln('| фамилия |средний балл |');
writeln(' ------------------------ ');
for i:=1 to n do
with mas[i] do
if mas[i].sred>sred1 then
begin
write('|',name:9,'|');
writeln(sred:14:2,'|');
end;
writeln(' --------------------------');
readkey;
end.
uses crt;
type tablica=record
name:string[10];
sred,sred1:real;
rus,math,fiz:byte;
end;
var a:tablica;
mas:array[1..30] of tablica;
s,n:integer;
i:integer;
begin
clrscr;
writeln('введите количество учеников ');
readln(n);
for i:=1 to n do
with mas[i] do
begin
write('фамилия ',i,'-го ученика : ');
readln(name);
write('русский язык: ');
readln(rus);
write('математика : ');
readln(math);
write('физика : ');
readln(fiz);
sred:=(rus+math+fiz)/3;
writeln('sredni bal uchenika ' , name,' ', sred:3:1);
end;
for i:=1 to n do
with mas[i] do
begin
s:=s+sred[i];
writeln('obshi sredni ocenka',sred1);
end;
writeln('');
writeln('ученики чей средний бал выше среднего ');
writeln('');
writeln(' ________________________ ');
writeln('| фамилия |средний балл |');
writeln(' ------------------------ ');
for i:=1 to n do
with mas[i] do
if mas[i].sred>sred1 then
begin
write('|',name:9,'|');
writeln(sred:14:2,'|');
end;
writeln(' --------------------------');
readkey;
end.