задача на записи2 Опции

[RAPON]

Опишите, используя структуру записи, школьный журнал.Предусмотрите в записи поля для хранения информации о фамилии учащегося, предмете, оценке. Составьте программу, считывающую с клавиатуры данные об успеваемости учащихся класс и выводящую на экран сведения об отличниках класса, о средней успеваемости учащихся класса.

Мне непонятен момент связанный с предметом..
Предмет должен одинаковый для всех?
Если представить что предметов несколько то тогда зачем под предмет отводить одно поле..?

Сообщение отредактировано: RAPON - 12.04.2008 9:26

[RAPON]

Const n=4;m=2;
Type
Gurnal=record
Familia:string;
Predmet:array[1..n] of string;
Ozenka:array[1..m] of byte;
End;
Var
I,g:integer;
A:array[1..n] of gurnal;
Begin
For i:=1 to n do
Begin
With a[i] do
Begin
Readln(familia);
…
как организовать ввод данных в массивы predmet и ozenka?