Задача с записями в Pascal

[student2008]

Кому нетрудно, прошу помощи в решении задачи с записями, завтра нужно сдать. Заранее спасибо всем кто откликнется.

Составить список студентов, включающий 10 человек. Для каждого учащегося указать год рождения, год поступления в институт, оценки основных дисциплин школьного аттестата, оценки вступительных экзаменов. Информацию о каждом студенте оформить в программе в виде записи. Совокупность записей объединить в массив.
Составить программу, которая:
1. обеспечивает ввод исходной информации,
2. представления исходной информации на экране в виде таблицы
3. вывод на экран только той информации, которая отвечает требованиям согласно зада-нию конкретного варианта.

Исходные данные:

Фамилия Год рождения Год поступления Аттестат Вступительные экзамены
Зябликов 1986 2003 44334 334
Волков 1985 2002 55555 555
Сидорова 1987 2003 33433 433
Антонова 1986 2004 44444 554
Кулич 1985 2002 44334 433
Ростова 1986 2000 44344 544
Сёмина 1987 2004 44444 344
Бондарь 1985 2002 55455 555
Ким 1987 2004 34444 443
Петров 1986 2003 44444 334
Распечатать фамилии и даты рождения студентов, не получивших ни одной оцен-ки 3 за все вступительные экзамены.

[Serge_Bliznykov]

1) Вы не поверите, подобных задач тут на форуме (да и вообще в Интернете) было решено видимо-невидимо!
Поищите хотя бы по слову record или по слову типизированный

2) то, что Вы просите, называется не "помогите", а "сделайте за меня"! Что Вы сами сделали, что не получается? вообще всё не получается? Тогда Вам в раздел ФРИЛАНС, там Вам за Ваши деньги сделают с большой радостью...

[Stilet]

student2008

Наработки и идеи есть?

[student2008]

есть похожая задача, только здесь вариант другой.

Program L08P01T06;
type
  Stud=record
    Fam:string;
    Grogd:1950..1995;
    Gpost:2000..2010;
    At:array [1..5] of 3..5;
    Ex:array [1..3] of 3..5;
  end;
var
  a: array [1..10] of Stud;
  i,j:integer;
  sv:real;
begin
  cls;
  sv:=0;
  Writeln('Ввод исходной информации о 10 студентах');
  for i:=1 to 10 do
           with a[i] do
           begin
              Writeln('      № ',i);
              Writeln('Фамилия?');
              Readln(Fam);
              Writeln('Год рождения?');
              Readln(Grogd);
              sv:=sv+2009-Grogd;
              Writeln('Год поступления?');
              Readln(Gpost);
              for j:=1 to 5 do
                       begin
                         Writeln(j,'-я оценка в аттестате?');
                         Readln(At[j]);
                       end;
              for j:=1 to 3 do
                       begin
                         Writeln(j,'-я оценка вступительных экзаменов?');
                         Readln(Ex[j]);
                       end;
           end;
  sv:=sv/10;
  cls;
  Writeln('Исходная информация о 10 студентах:');
  Writeln('Фамилия    Год    Год      Аттестат Вступ-й');
  Writeln('           рожд-я поступ-я          экзамен');
  for i:=1 to 10 do
           with a[i] do
           begin
              Write(Fam:10,Grogd:6,Gpost:7);
              Write('   ');
              for j:=1 to 5 do Write(At[j]);
              Write('    ');
              for j:=1 to 3 do Write(Ex[j]);
              Writeln;
           end;
  Writeln;
  Writeln('Средний возраст группы: ',sv);
  Writeln('Cписок студентов моложе среднего возраста:');
  Writeln('Фамилия    Возраст');
  for i:=1 to 10 do
           with a[i] do if (2009-Grogd)<sv then Writeln(Fam:10,2009-Grogd:6);
end.

[Скандербег]

Как по заказу, для "ничего не умеющего", именно эта задача.

[student2008]

Спасибо,работает. Но с чего вы взяли, что я "ничего не умеющий"?

[SuperVisor]

С того, что это - Истина, т.к. Вы на готовом примере не можете код под себя подстроить, в котором и подстраивать-то нечего...
P.S. Извиняюсь за оффтоп - не удержался.