Запись(ПАСКАЛЬ)

[Таня.Ку]

Сформировать запись,имеющую следущую структуру
type студент=record фамилия:string;
номергр:string;
оценка1:integer;
оценка2:integer;
оценка3:integer;
end;
и определить:
-фамилию того, кто лучше всех сдал экзамены;
-средний балл по данному предмету;
-список задолжников.

[Пепел Феникса]

наработки или цена вопроса?

[Stilet]

Сформировать запись

Начало:

type
 student=record 
  fio:string;
  grup:string;
  oz1:integer;
  oz2:integer;
  oz3:integer;
end;
var w:array[1..100] of student;i:integer;
begin
 for i:=1 to 100 do begin
  write('Имя':20);readln(w[i].fio;
  write('Группа':20);readln(w[i].grup;
   write('1':20);readln(w[i].oz1;
   write('2':20);readln(w[i].oz2;
   write('3':20);readln(w[i].oz3;
 end;
...

Примерно понятно в какую сторону двигаться?