1.type name=(mary, jane, kim, bob, jan,pit,tom,sara,bill,pol);
data=record
male: boolean; {пол:true-муж, false-жен}
height:140..200; {рост}
cost:word; {зарплата}
end;
group = array[name] of data;
Опишите функцию Higher(G), определяющую имя самого высокого мужчины из группы G.
Вот мои наброски:
function higher(const g: group): name;
var
i: name;
begin
higher:=Low(higher);
while not g[higher].male do
higher:=name(Ord(higher)+1);
for i:=higher to High(i) do
if g[i].male and (g[i].height>g[higher].height) then
higher:=i
end;
procedure Fill(var g: group);
var
i: name;
begin
Randomize;
for I:=Low(i) to High(i) do
with g[I] do
begin
male:=Random<=0.5;
height:=Random(200-140+1)+140
end
end;
var
g: group;
begin
Fill(g);
WriteLn(Ord(higher(g)));
ReadLn
end.
2.Напишите функцию countEq(f), которая находит кол-во строк в файле, состоящих из одинаковых литер.