массив

← →
Quart (2007-11-27 12:15) [0]

помогите, пожалуйста, с детской задачей:
есть массив, состоящий из элементов:
245
245
404
523
404
нужно подсчитать какое кол-во раз встречается каждый элемент

← →
Denis__ © (2007-11-27 12:17) [1]

Чем смогу - помогу. Задавай вопросы.

← →
clickmaker © (2007-11-27 12:17) [2]

самое простое - завести TList, туда записывать структуры типа
record
Number: integer;
RepeatCount: integer;
end;
при прогоне по массиву, искать число в List, если есть, Inc(RepeatCount), если нет - добавлять

← →
Quart (2007-11-27 12:28) [3]

to clickmaker
а можно пример, а то я с Tlist никогда не работал

← →
Leonid Troyanovsky © (2007-11-27 12:45) [4]

> Quart (27.11.07 12:15)

> нужно подсчитать какое кол-во раз встречается каждый элемент

245, 404 - 2 раза.
Остальные - 1.

--
Regards, LVT.

> [3] Quart (27.11.07 12:28)

Ты пробуй, а что не получится в справке почитаешь.
А потом уж сюда

Студент? Лаба? Списки, динамические массивы не знаем?
если да, то препод примет такое(считаем, что там только не отрицательные числа, медленно, но без лишних структур):

var NUmbers:array[0..4] of integer; Index,I:integer; CUrrent:integer; Count:integer; begin for INdex:=0 to 4 do if NUmbers[Index]>-1 then begin Count:=0; Current:=Numbers[Index]; for I:=Index to 4 do if Numbers[I]=Current then begin inc(Count); Numbers[I]:=-1; end; Writeln("Number:",Current," Count:",Count); end; end;

массив Найти похожие ветки