Записи , паскаль

[paladinn]

Пожалуста помогите решить.

Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан массив, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и другое – действительное (вес в килограммах). Найти багаж, средний вес одной вещи в котором отличается не более, чем на 0,3 кг от общего среднего веса одной вещи.

[paloit]

362827711 стучись

[capta1n]

была такая задача про багаж - воспользуйся поиском

[Dvijochnyk]

Program records1;
uses Crt;
type Bagash=record{записи}
     n:integer;{количеством вещей }
     k:real;{общий вес вещей}
     end;
var a1:array[1..10] of Bagash;{масив записей}
    a2:array[1..10] of real;{багаж средний вес одной вещи}
    i,p,nn,q:integer;
    s,d,av:real;
BEGIN  clrscr;
     writeln('Enter 1<p<10');
     readln(p);{количество пассажиров}
     nn:=0;
     s:=0;
     for i:=1 to p do
     begin
     readln(a1[i].n,a1[i].k);{ввод количеством вещей, общий вес вещей}
     a2[i]:=a1[i].n/a1[i].k;
     s:=s+a1[i].k;
     nn:=nn+a1[i].n;
     end;
     av:=s/nn;{общий средний вес одной вещи}
     q:=0;
     for i:=1 to p do
     begin
     if abs(av-a2[i])<=0.3 then writeln(a1[i].n,a1[i].k){проверка умовы средний вес одной вещи в котором отличается не более,
	 чем на 0,3 кг от общего среднего веса одной вещи.}
                      else q:=q+1;

     end;
     if q=p then writeln('net');
     readln;
END.