type baza=record
data:integer;;
fam:string[10];
pol:string;
end;
var a: array [1..10] of baza;
I: integer;
begin
for I:=1 to 10 do
begin
writeln ('введите фамилию');
readln (a[I].fam);
writeln ('введите возраст');
readln (a[I].data);
writeln ('введите пол');
readln (a[I].pol);
end;
for i:=1 to 10 do begin
if (a[i].data>=60)and (a[i].pol='m')then writeln(a[i].fam);
if (a[i].data>=55)and (a[i].pol='z')then writeln(a[i].fam);
end;
end.
Похожие записи/страницы:
- Описать запись с именем Student, содержащую следующие поля: ФИО (Вася Иванов); Номер группы(2-PO-3), Дата…
- Даны такие сведения о 20 владельцах авто: фамилия водителя, марка машины, и ее номер (целое число), пробег…
- Создать файл автовладельцев. Для каждого автовладельца известны: номер, марка автомобиля, фамилия и адрес.…
- Составить программу, выводящую на экран расписание экзаменов и зачетов (предмет, вид отчетности, число,…
- Сведения об экспорте товара состоят из наименования товара, страны и количества экспорта в эту страну. Дан набор…
- Вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет Pascal (Паскаль)
- Составить список учебной группы, включающей 5 человек. Для каждого учащегося указать фамилию, дату рождения, год…
- Программа создает список из 10 элементов и выводит их на экран - Pascal(Паскаль)