Работа с записями

[Nitriyc]

задание: Анкета содержит сведения о вступительных экзаменах абитуриентов: фамилия, имя, отчество, факультет, экзаменационные оценки. Вывести название факультета и фамилии тех, кто зачислен в университет. Критерий зачисления: сдача всех вступительных экзаменов на 4 или 5.
Заранее благодарю!!

[NiCola999]

ну и чего тут сложного, создаешь структуру
код на Си

typedef struct anketa
{
     char lastname[50];
     char name[50];
     char fakultet[50];
     int ocenki[5];  // 5- кол-во вступ экзаменов
} Anketa;

Делаешь массив из анкет, каждую соответственно надо заполнить
Потом можно сделать функцию проверяющую оценки в структуре Anketa
типа:

char is_passed(Anketa *a,int size);

возвращает 0 если абитуриент не поступил, иначе 1

Затем проходишься по массиву анкет и выдаешь те у кого ф-я выдает 1

[dr.Chas]

Не плохо было бы почитать правила. Что у вас не получается?

[ai\ekcah^p]

Разберись в программе, если что непонятно - спрашивай

program zad;
uses crt;
type anketa=record
     fam:string[20];
     imya:string[20];
     otch:string[20];
     fac:string[20];
     ocenka1:integer;
     ocenka2:integer;
     ocenka3:integer;
     end;

var
 mas:array[1..20] of anketa;
 i,n:integer;
 begin
  clrscr;
   write(' введите колличество студентов -> ');
   readln(n);
   for i:=1 to n do
   begin
    writeln;
    write('фамилия ');readln(mas[i].fam);
    write('имя '); readln(mas[i].imya);
    write('отчество '); readln(mas[i].otch);
    write('название факультета '); readln(mas[i].fac);
    write('оценка по математике '); readln(mas[i].ocenka1);
    write('оценка по информатике '); readln(mas[i].ocenka2);
    write('оценка по физике '); readln(mas[i].ocenka3);
   end;
   writeln('               ************************');
   writeln('               в университет зачислены: ');
   for i:=1 to n do
   begin
    if (mas[i].ocenka1>=4)and(mas[i].ocenka2>=4)and(mas[i].ocenka3>=4) then
    begin
     writeln('факультет-> ',mas[i].fac,'        фамилия-> ',mas[i].fam)
    end;
   end;
  writeln;
  write('нажмите enter ');
  readkey;
 end.

[Nitriyc]

Спасибо за помощь