посчитать средний балл и вывести ученика с такой-же оценкой как и средний балл - Turbo Pascal

Формулировка задачи:

ребят как посчитать средний бал и вывести ученика с такой-же оценкой как и средний бал?
Program zashitastroki;
Uses crt;
Type RT16=record
    s: string;
    m: integer;
end;
Var i,j,k: integer;
    sb:real;
    students: array[1..10] of RT16;
Procedure stud_input(k: integer);
Var i:integer;
    students: array[1..10] of RT16;
Begin
     For i:=1 to K do begin
         write('student[',i,']=');
         readln(students[i].s);
         write('mark[',i,']=');
         readln(students[i].m);
     end;
end;
Procedure stud_work(k: integer);
Var i: integer;
    students: array[1..10] of RT16;
Begin
 
     j:=0;
     For i:=1 to K do begin
         writeln(students[i].s,'...',students[i].m);
     end;
     writeln;
     writeln;
     sb:=0;
     for i:=1 to k
     sb:=sb+mark[i].m;
     end;
     sb:=sb/k;
     writeln('srednii bal');
     end.
Вот попытался написать но эт явно не то. Cуть в том что я должен ввести имена учеников и их оценку потом должен посчитаться средний бал и вывести ученика с такой-же оценкой как и средний бал.

Код к задаче: «посчитать средний балл и вывести ученика с такой-же оценкой как и средний балл - Turbo Pascal»

textual
uses Crt;
type RT16=record
            s:string;
            m:integer;
          end;
var  a:array[1..10] of RT16;
     i:integer;
     sb:Real;
begin
  ClrScr;
   sb:=0;
    for i:=1 to 10 do
     begin
       Write('Student',i:2,' : ');
       Readln(a[i].s);            
       Write('Ball = ');
       Readln(a[i].m);
       sb:=sb+a[i].m;
     end;
   Writeln;
    sb:=sb/10;
     Writeln('Sredniy ball = ',sb:0:1);
      Writeln;
   for i:=1 to 10 do
    if a[i].m=sb then
     Writeln(a[i].s);
  ReadKey;
end.

7   голосов, оценка 4.429 из 5


СОХРАНИТЬ ССЫЛКУ