Задача про зарплаты

[GorNikSar]

Дана вот такая задача:

"Записать в типизированный файл данные о 20 сотрудниках фирмы: фамилия, зарплата и пол (мужской/женский). Определить:
- Фамилию мужчины, имеющего самую большую зарплату (считать, что такой есть и он единственный);
- Фамилию мужчины и среди женщины, имеющих самую маленькую зарплату (считать, что такие есть и они единственные в своей группе)."

Помогите!! Срочно нужно её решение.

[quit]

Есть ли какие ли нибудь наработки? какой язык?

[GorNikSar]

Язык - Delphi. А от наработок толку нет. Давно бьюсь...

[Utkin]

Опиши структуру:
фамилия
зарплата
пол

Создай массив из 20-ти таких структур
Заполни массив (в цикле)
Найди самую большую зарплату мужчины (в цикле, как задача по поиску наибольшего элемента в массиве)
Аналогично все остальные зарплаты
Затем также в цикле занеси все в файл.

Я расписал, все что должны делать функции и процедуры для решения твоей задачи. Решай каждый пункт независимо от остальных.

[ОДИНОЧЕСТВО В СЕТИ]

program Project2;

{$APPTYPE CONSOLE}


uses
  SysUtils;
type Tsot = record
       lan:string[80];
       sex:char; {'m' или 'w'}
       pay:Double;
     end;
const n=19;
var f:file of Tsot;
   i:Integer;
   k1:Integer;
   im1,im2,im3:Integer;
    maxm,minm,minw:Double;
    s:Tsot;
begin
  k1:=0;
  maxm:=0;
  minm:=999999;
  minw:=999999;
  Assign(f,'shtat.mf');
{$I-}
  Rewrite(f);
{$I+}
  Writeln('input your workers');
  for i:=0 to n do  begin
    Writeln('lastname ');
    Readln(s.lan);
    Writeln( 'sex ');
    Readln(s.sex);
    Writeln('pay');
    Readln(s.pay);
    Write(f,s);
    if i<n then Writeln('--next worker--')
       else Writeln('input complete!');
  end;
  CloseFile(f);
{$I-}
  Reset(f);
{$I+}
  while not Eof(f)do begin
     read(f,s);
     if (s.sex='m') and (s.pay>maxm) then begin
       maxm:=s.pay;
       im1:=k1;
     end;
     if (s.sex='m') and (s.pay<minm) then begin
       minm:=s.pay;
       im2:=k1;
     end;
     if (s.sex='w') and (s.pay<minw) then begin
       minw:=s.pay;
       im3:=k1;
     end;
     Inc(k1);
     Writeln(s.Lan,' ',s.sex, '  ',s.pay:6:2);;
  end;
  Writeln;
  seek(f,im1);
  Read(f,s);
  Writeln;
  Write('1-');
  Write(s.Lan,' ',s.sex, '  ',s.pay:6:2);
  seek(f,im2);
  Read(f,s);
  Writeln;
  Write('2-');
  Write(s.Lan,' ',s.sex, '  ',s.pay:6:2);
  seek(f,im3);
  Writeln;
  Write('3-');
  Read(f,s);
  Write(s.Lan,' ',s.sex, '  ',s.pay:6:2);
  CloseFile(f);
  readln;
 end.

а кто сколько взял бы за её решение во фрилансе? ответы в ЛС только обьективно!