TURBO PASCAL:Учебное пособие. Терёхин В.В. - 88 стр.

   TKlass = array[1.. n] of child;{тип массивa - информация
                                           об учащихся класса}
Var
   A: TKlass; {экземпляр массива}
    i, nr: integer;
    t: real;
begin
   Write('Введите количество учеников – n , 0 < n < 30 ‘ );
   Readln(nr);
   {ввод данных}
  for i:= 1 to nr do
   begin
       Writeln(' N ‘ , i) ;
       Write('введите фамилию ');
       Readln(A[i] . f);
       Write('введите имя ');
       Readln(A[i] . i);
       Write('введите месяц рождения ');
       Readln(A[i] . m);
       Write('введите день рождения ');
        Readln (A [i] .d);
       Write('введите рост '); Readln(A[i].r);
       Write('введите вес '); Readln(A[i].v);
       Write('введите номер парты '}; Readln(A[i].n);
   end;
   {вывод на экран}
  for i:= 1 to nr do
       Writeln(i: 2, '/', A[i].f : 10, '/' , A[i].i : 10, '/' , A[i].d : 2,
       '/' , A[i].m: 2, '/' , A[i].n : 2, '/ ' , A[i] . r : 4 : 1 , '/' ,
        A[i].v: 4 : 1 , '/' , A[i] . r / A [i] .v : 6: 3) ;
end.


        21.2 Записи с вариантами

                                                                              88