Задача на записи (код прилагается)

[misha_beginner]

Здраствуйте! Вообщем задание большое! Я переведу! Дана таблица (см. картинку под названием 11111) по этой таблице нужно эти данные оформить в виде записей и сформировать эти записи в массив Вот код:

Код: Выделить всё

const 
     n=4;
     type anketa=record
     prizv:string;
     ocenka1:real;
     ocenka2:real;
     end;
     var 
        a:array[1..n] of anketa;
    i:integer;
    begin
    writeln('vvedi dannie ');
    for i:=1 to n do
    with a[i] do
    begin
    write('prizv ');
    readln(prizv);
    write('ocenka1 ');
    readln(ocenka1);
    write('ocenka2 ');
    readln(ocenka2);
    end;
    end.

(не знаю правильно ли)
Дальше вы можете прочитать снизу(см. картинку под названием 22222), что нужно еще и сделать таблицу (тоесть после записей идёт и таблица, мой вариант 2). Я переведу:
Вывести таблицу, с номерами, фамилиями, оценками, и средний бал тех студентов группы средний бал которых больше 4 и количество этих студентов в группе.
Вот код:

Код: Выделить всё

const n=4;
var 
   nomer: array[1..n] of real;
   prizv:array [1..n] of string;
   matanaliz,proga:array[1..n] of real;
   i:integer;
   y,s1,s2:real;
   Procedure lin(m:integer);
   var
     i:integer;
     begin
     for i:=1 to m do write('-');
     writeln;
     end;
     begin
     for i:=1 to n do 
     readln(nomer[i],prizv[i],matanal[i],proga[i]);
     Lin(40);
     Writeln('номер|призвіще|математ.|програмування|');
     Writeln('|    |        |аналіз  |             |);
     Lin(40);

но дальше не знаю как это сделать: средний бал тех студентов группы средний бал которых больше 4. Всё это одна программа.
Спасибо вам заранее

[Хыиуду]

Находим средний балл каждого студента: складываем все его оценки, делим на количество оценок. Если этот балл >= 4, добавляем этот балл в общую сумму, количество студентов со средним баллом >=4 увеличиваем на 1. В конце сумму делим на это количество.