Ответы на вопрос:
// pascalabc.net 3.0, сборка 1052 const nstud=100; npred=10; type date=record den: byte; mes: byte; god: integer end; st=record datr: date; famnam: string; gender: 0..1; ball: array[1..npred] of 2..5 end; var ns,np,nd,i,j: byte; r: array[1..nstud] of st; dolg,flagp: boolean; cdate: date; begin write('количество студентов: '); read(ns); write('количество предметов: '); read(np); writeln('вводите данные по каждому студенту'); writeln('в первой строке через пробел дата рождения дд мм '); writeln('во второй строке фамилия, пробел, имя'); writeln('в третьей строке пол (0 - мужской, 1 - женский)'); writeln('в четвертой строке полученные через пробел'); for i: =1 to ns do begin writeln('*** студент ',i,' ***'); with r[i] do begin readln(datr.den,datr.mes,datr.god); readln(famnam); readln(gender); for j: =1 to np do read(ball[j]) end end; { *********** 1 *************** } writeln; writeln('список студентов-задолжников'); nd: =0; for i: =1 to ns do begin with r[i] do begin j: =1; dolg: =false; repeat if ball[j]=2 then begin dolg: =true; inc(nd) end; inc(j) until dolg or (j> np); if dolg then writeln(famnam) end end; if nd=0 then writeln('задолжников нет! '); { *********** 2 *************** } writeln; writeln('введите дату запроса в формате дд, мм, : '); read(cdate.den,cdate.mes,cdate.god); writeln; writeln('список студентов, которым исполнилось 20 лет'); nd: =0; for i: =1 to ns do begin with r[i] do begin flagp: =false; if cdate.god-datr.god> 20 then flagp: =true else if cdate.god-datr.god=20 then begin if cdate.mes> datr.mes then flagp: =true else begin if cdate.mes=datr.mes then flagp: =(cdate.den> =datr.den) end end; if flagp then begin writeln(famnam); inc(nd) end; end end; if nd=0 then writeln('нет студентов, которым исполнилось 20 лет! '); end. тестовое решение: количество студентов: 5 количество предметов: 4 вводите данные по каждому студенту в первой строке через пробел дата рождения дд мм во второй строке фамилия, пробел, имя в третьей строке пол (0 - мужской, 1 - женский) в четвертой строке полученные через пробел *** студент 1 *** 5 10 1996 иванов иван 0 4 3 5 5 *** студент 2 *** 12 8 1997 петров петр 0 3 2 3 4 *** студент 3 *** 9 10 1998 сидорова наталья 1 3 4 4 2 *** студент 4 *** 6 9 1994 козлова ирина 1 5 4 4 5 *** студент 5 *** 12 3 1995 тарасов константин 0 3 5 5 4 список студентов-задолжников петров петр сидорова наталья введите дату запроса в формате дд, мм, : 2 11 2015 список студентов, которым исполнилось 20 лет козлова ирина тарасов константин
Популярно: Информатика
-
Mashshka20.01.2021 17:02
-
Oremi02.07.2021 19:37
-
КучеренкоИнна02.04.2021 14:52
-
enotnana02.04.2023 00:44
-
1izzka00030.03.2021 17:49
-
anasteysha2000305.07.2020 07:59
-
Ahela00715.10.2020 17:41
-
mczuf04.11.2021 23:44
-
mishanya201119812.12.2020 11:34
-
Keneke20.08.2021 16:05