Не МОГУ РЕШАТЬ

[alexandrovna]

Тема: Записи. Работа с текстовыми файлами.
Дан файл f, содержащий сведения о багаже нескольких пассажиров.
Багаж пассажира характеризуется количеством вещей и общим весом вещей. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно - действительное (вес в килограммах). Найти багаж, вес одной вещи в котором отличается не более, чем на 0.3 кг от общего среднего веса.

[Poma][a]

Пользуйтесь поиском :

type
  tBaggage: record
    n: integer;
    w: single
  end;
var
  f: file of tBaggage;
  b: tBaggage;
  aw,an: single;
  p,pGT2p: integer;
  OnePlaceLessThen30: boolean;

begin
  assign(f,'baggage.txt');
  reset(f);
  aw:= 0;  // average weight (total)
  an:= 0;  // average number of places
  p:= 0;  // passengers count
  pGT2p:= 0;  // number of passengers with more then 2 places
  while not EoF(f) do with b do begin
    read(f,b);
    aw:= aw+w;
    an:= an+n;
    if n>2 then inc(pGT2p);
    inc(p)
  end;
  aw:= aw/p;
  an:= an/p;
  reset(f);
  OnePlaceLessThen30:= false;
  while not EoF(f) do with b do begin
    read(f,b);
    OnePlaceLessThen30:= OnePlaceLessThen30 or (n=1) and (w<30);
    // here, I've got tired.. :)

by TinMan