записи(delphi)

[sergi]

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

[Антон Лысенко]

ну,например, поставьте условие "если значение в поле с оценкой равно нулю, то вывести этот элемент(или как там он называется, не помню) записи на экран".
Запись описывается вот так :

type stud=record
          fams:shortstring;
          grups:integer;
          ocs1:integer;
          ...
          ocs3:integer;
       end

[casekey]

const int NMAX = 100500;

struct TStudent
{
    char[30] fio;
    int ngr;
    int marks[3];
};

TStudent list[NMAX];

void PrintNeud(TStudent mass[])
{
for (int i = 0; i<NMAX; i++)
    for (int j = 0; j<3; j++)
        if (mass[i].marks[j] < 3)
            {
             // Выводим i - го студента
            }
}

upd:
ой, не заметил делфу )

[sergi]

информацию я ввёл, вот код:

 type
    student = record
    name:string;
    group:string;
    fizik:integer;
    matem:integer;
    prog:integer;
    end;
    arr=array[1..4] of student;

var
    i:integer;
    a:arr;

procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
    a[i].name:=edit1.Text;
    a[i].group:=edit2.Text;
    a[i].fizik:=strtoint(edit3.Text);
    a[i].matem:=strtoint(edit4.Text);
    a[i].prog:=strtoint(edit5.Text);
    St1.Cells[0,i]:=a[i].name;
    St1.Cells[1,i]:=a[i].group;
    St1.Cells[2,i]:=inttostr(a[i].fizik);
    St1.Cells[3,i]:=inttostr(a[i].matem);
    St1.Cells[4,i]:=inttostr(a[i].prog);
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    edit5.Clear;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    St1.Cells[0,0]:='фамилия';
    St1.Cells[1,0]:='группа';
    St1.Cells[2,0]:=''матем;
    St1.Cells[3,0]:='физика';
    St1.Cells[4,0]:='програм';
   
end;

подскажите как напечатать студентов имеющих задолженность


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.