Распечатать фамилии детей детского сада, которые родились в определённом месяце

Lapylja

задание: распечатать фамилии детей дет.сада которые родились в определённом месяце. указать их возраст и группу
2 ответа

Lapylja

Входные данные хоть бы обозначили.


Lapylja

Type Det=record
       year,month,gr:byte;
       Fam:string[15];
     End;
Var A:array[1..100] of Det;
    i,n,m:byte;
Begin
    write('Кол-во детей в дет.садике: ');readln(n);
    For i:=1 to n do
    Begin 
      writeln('Введите информацию о ',i,' ребенке дет.садика');
      write('Фамилия: ');readln(A[i].Fam);
      write('Группа: ');readln(A[i].gr);
      write('Возраст: ');readln(A[i].year);
      write('Месяц рождения: ');readln(A[i].month);
   End;
   write('Введите месяц рождения для вывода списка: ');readln(m);
   writeln('--------------------------------------------------');
   writeln('    Фамилия    | ','Группа | ','Возраст | ','Месяц рождения');
   writeln('--------------------------------------------------');
   For i:=1 to n do
    if A[i].month=m then writeln(A[i].Fam:15,'|':1,A[i].gr:8,'|':1,A[i].year:9,'|':1,A[i].month:6);
   readln;
End.