Задача по Турбо паскаль,записи

[ReleRool]

Помогите пожалуйста кто может...

Сформировать массив записей, описывающих следующую таблицу:

Код: Выделить всё

--------------------------------------------------------------
Ф.И.О.  !Возраст!Рост !Образование !Есть ли дети !Занимаемая жи-
женщи-  !       !     !            !  (да/нет)   !лая площадь
 ны     !       !     !            !             !
---------------------------------------------------------------

Вывести фамилии женщин не старше 35 лет, бездетных и с высшим
образованием, по форме:

Код: Выделить всё

----------------------------------------------
Ф.И.О.   !   Занимаемая жилая площадь        !
----------------------------------------------

[Naeel Maqsudov]

Тема отделена

[ReleRool]

Тема отделена

как отделена?

[Хыиуду]

type twoman=record
fio, education: string;
height, age: byte;
children: boolean;
square: real;
end;
var a: array[1..100] of twoman;
begin
//Тут этот массив как-то заполняется
for i:=1 to 100 do
if (a.age<35) and (a.education='High') and (not a.children) then
writeln (a.fio, ' ', a.square);

[ReleRool]

Спасибо большое..может и с этой кто поможет?...ато военкомат сделает свое дело...

Дан массив из n слов пpоизвольной длины ,но не пpевышающих
80 символов.
Элементами слов могут быть любые гpафические символы.
В слове наименьшей длины удалить все гласные буквы и
подсчитать их количество в этом слове.

[Хыиуду]

Пройтись по массиву, найти кратчайшее слово (функция нахождения минимума/максимума - в разделе "Алгоритмы")
Пройтись по этому слову, посмотреть: если буква гласная - удалить. Рекомендую сделать строку из всех гласных букв и проверять, есть ли в ней очередной символ слова.