aspis
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Данные о жильцах можно например в виде массива записей оформить, где поле записи - соответствующий атрибут.
type
TTenant=record
Name, surname: string;
Month, Year: integer;
Nomer: integer;
end;
var
arTenant: array[1..n] of TTenant;
а) Ищете всех жильцов, дата рождения которых больше 2010-16=1994.
for i:=1 to n do
if arTenant[i].Year>1994 then
// выводим
б) Параллельно пункту а) можно искать дату 1954, если есть такая - то да, нет - не живут.
for i:=1 to n do
if arTenant[i].Year=1954 then
// выводим
|
