Запись (Паскаль)

[Таня.Ку]

Сформировать запись,имеющую структуру
type имя=(Аня,Валя,Женя,Петя,Саша,Таня,Ш ура,Юра);
данные=record пол(м,ж);рост:140..200 end;
и определить:
-средний рост женщин;
-имя самого высокого мужчины;
-есть ли в группе хотя бы два человека одного роста.

[p51x]

И? Решить за вас? Вам во фриланс.

[Alt]

Задача невероятно легкая. Включайте мозг и решайте, если бы Вы этого не проходили, то вам бы не задали ее.
А если хотите, что бы решили за вас, то для этого есть раздел фриланс.

[Google2010]

type tdata = record
  n1:string[5];
  s:char;
  r:140..200;
  end;

var s,i,n,j:integer;
  i1:integer;
  da:string;
  a:array[1..100] of tdata;
begin
 readln(n);
 for i := 1 to n  do
   begin
     readln(a[i].n1);
     readln(a[i].s);
     readln(a[i].r);
   end;
   s:=0;j:=0
  for i:=1 to n  do
    if a[i].s='w' then begin
      inc(j);
      inc(s,a[i].r);
    end;
    if j<>0 then
writeln('average height of women=',(s/j):6:2);
for i := 1 to n  do
  if a[i].s='m' then begin i1:=i ;break;end;
for i := 1 to n  do
   if (a[i].s='m') and a[i].r>a[i1].r then  i1:=i;
writeln('name of men =',a[i1].n1);
da:='no';
for i:=1 to n-1  do  begin
  for j := i+1 to n do
 if a[i].r =a[j].r then begin da:='yes';break;end;
  if da='yes' then break;
 Writeln(da);
end.

как то так! писал прям сюда)