Нуждаюсь в помощи с задачей на Delphi

[f1n!Sh]

ЗАДАЧА: -
- Найти число пассажиров,имеющих более двух вещей,и число пассажиров,колличество вещей которых превосходит среднее число вещей!

Путаница какае-то!я просто запутался!Помогите мне её решить

[-=<[Evklidd]>=-]

В чем путаница? Каким образом у вас задается список пассажиров? Массивом записей?

[f1n!Sh]

Вот в чем и основная проблема думаю что да...

[mutabor]

Нет тут никакой путаницы.
Пример:
Допустим десять пассажиров, у первого одна вещь, у каждого следующего на одну вещь больше.
Среднее число вещей: 5
Больше двух вещей: у 8-ми пассажиров
Больше среднего т.е. больше 5-ти: у 5-ти пассажиров

Среднее арифметическое что не училив школе находить? кстати в модуле Math есть функции для таких операций, даже самому считать не надо.

[-=<[Evklidd]>=-]

ну и в чем проблема-то? объявляете свой тип record с двумя полями, одно типа string - это имя пассажира, второе типа integer - это число вещей пассажира. Затем в var создаете массив записей, заполняете его, делаете проход по всему массиву и смотрите у какого пассажира в поле числа вещей, вещей больше 2, заодно суммируете их и находите среднее число вещей, проверяете у кого вещей, больше чем их среднее число и все

[f1n!Sh]

я просто почти ничего не понимаю....для меня делфи это очень новое (я пропал)

[-=<[Evklidd]>=-]

Вам это срочно надо? Если хотите, могу завтра кинуть прогу...

[f1n!Sh]

Ну вообще даже очень срочно...если Вам не очень трудно то пожалуста если можно сегодня...

[-=<[Evklidd]>=-]

Написать-то может и не трудно, времени просто нету совсем, может все-таки завтра с утра подойдет? Если да, то тогда один вопрос: с помощью каких компонентов осуществлять ввод и вывод данных?

[mutabor]

type
TPassenger = record
Stuff: integer;
//других полей в условии вроде нет
end;
//А раз нет, то на кой тут записи? Упрощаем:
var
Stuffs: array of integer;
Mean, All: integer; //среднее

procedure InitStuff(count, range: integer);
var
i: integer;
begin
All:=0;
Randomize;
SetLength(Stuffs,count);
for i:=0 to count-1 do
begin
Stuffs[i]:=Random(range);
All:=All+Stuffs[i];
end;
end;

procedure FindPassengers;
begin
Mean:=Round(All/Length(Stuffs));
for i:=0 to Length(Stuffs)-1 do
begin
if Stuffs[i] > 2 then
if Stuffs[i] > Mean then
end;
end;

Вот я начал, через часик допишу, а может кто-то еще доделает если не лень. Тут две переменные добавить осталось.