Надо создать программу, если Дано, сделал много пунктов а 4 не получается решить, помогите если сможете, хоть советом или примером):
type Data = record
Deny: 1..31;
Mesyats: 1..12;
God: integer; end;
Celovek = record
ImiaFamilia: string;
DataRojdenia: Data;
end;
SpisokCelovek = array[1..50] of Celovek;
Не решил все, но завтра уже сдавать, так что можете не отвечать)
Nagato, погоди. Твоя тема озаглавлена "Списки", но то, что ты сделал, к спискам не имеет никакого отношения. Так что же тебе все-таки надо?..