паскаль записи

@nubik · Регистрация: 27.08.2014

Author24 — интернет-сервис помощи студентам

Сформировать запись, имеющую следующую структуру
type студент= record фамилия:string;
имя:string;
пол

м,ж);
возраст:16..35;
курс:1..5;
end;
и определить:
o курс, на котором наибольший процент мужчин;
o самые распространенные женские и мужские имена;
o список студентов данного пола, данного курса.

ПОДСКАЖИТЕ
каким образом делать функции по котрым определять вышеуказанные пункты. Начало написал=)

Pascal

program two;
uses crt;
const
n=3;
 type stud=record
 fam:string;
 im:string;
 pol: char;
 voz:16..35;
 kyrs:1..5;
end;
var
 a:array[1..n] of stud;
 i:integer;
begin
for i:=1 to n do
       with a[i] do   begin
writeln('wwedite fam');
 readln(fam);
writeln('wwedite im');
 readln(im);
writeln('wwedite pol(m,w)');
 readln(pol);
writeln('wwidite voz(16-35)');
 readln(voz);
writeln('wwedite kyrs(1-5)');
 readln(kyrs);
 end;
 writeln('vivod');
       for i:=1 to n do
       with a[i] do  begin
       writeln('fam=',a[i].fam);
       writeln('im=',a[i].im);
       writeln('pol=',a[i].pol);
       writeln('voz=',a[i].voz);
       writeln('kyrs',a[i].kyrs);
 end;

	11.04.2010, 20:28