Запись

[orandzheviyman]

Описать запись с именем "Student" из следующих полей:
1. Фамилия и инициалы
2. Номер группы
3. Успеваемость (массив из 10-ти элементов, которые есть оценкми по предметам).
Необходимо сделать ввод с клавиатуры массива из 20 таких записей и вывод на экран фамилии и номер группы тех студентов, у которых средний балл выше 4.
Пропустил лекцию по теме "Записи", на просторах интернета не нашёл ответа и понятного мне разъяснения. Помогите пожалуйста, напишите код и объясните по ходу кода, что и как делает. Заранее спасибо

[ZX Spectrum-128]

Type
  Student=record
    Fio:string;
    Ng:string;
    Ocenki:array [1..10] of integer;
Var 
   Stud:student;
Описание записи

[type_Oleg]

ZX Spectrum-128, end забыл.
...

 of integer;
end;

orandzheviyman, не нашли про записи, ищите pascal record
Примеров полно.

[ZX Spectrum-128]

Аха, забыл ;(
Я недавно писал несколько лаб похожих. Завтра доберусь до компа, выложу.

[orandzheviyman]

Сообщение от ZX Spectrum-128

Type
  Student=record
    Fio:string;
    Ng:string;
    Ocenki:array [1..10] of integer;
Var 
   Stud:student;
Описание записи

type Tocenki=array [1..10] of integer;
     TSTUDENT=record
      FIO:string [30];
      GRUPPA:string [5];
      OCENKI:Tocenki; end;
var STUDENT:TSTUDENT;
    I,K:integer;
    SRBAL:real;
BEGIN
for I:=1 to 20 do
  writeln ('Ââåäèòå ôàìèëèþ è èíèöèàëû');
  readln (STUDENT.FIO);
  writeln ('Ââåäèòå ãðóïïó');
  readln (STUDENT.GRUPPA);
  writeln ('Ââåäèòå ðåçóëüòàòû ñåññèè ÷åðåç ïðîáåë');
  for I:=1 to 20 do begin
   SRBAL:=(Tocenki[1]+Tocenki[2]+Tocenki[3]+Tocenki[4]+Tocenki[5]+Tocenki[6]+Tocenki[7]+Tocenki[8]+Tocenki[9]+Tocenki[10])/10;

вот что у меня есть

[orandzheviyman]

Сообщение от ZX Spectrum-128

Аха, забыл ;(
Я недавно писал несколько лаб похожих. Завтра доберусь до компа, выложу.

буду очень благодарен)