Задача на записи Опции

[Merlin]

Даны итоги выборов в Думу города. По "К" округам известно число голосовавших за представителей "М" партий. Считая, что от каждого округа в Думу проходит по одному представителю, составить алгоритм и программу, которые определяют, какая партия провела наибольшее число своих кандидатов (предполагая, что все кандидаты набрали разное число голосов).

Никак не могу понять что найти нужно и как это сделать.

М

Заголовок темы должен быть информативным, в следующий раз будет предупреждение klem4

[volvo]

Могу, конечно, но вообще-то такие задачи без знания массивов решить трудно...

const
  K = 5;
  M = 4;

  Results: array[1 .. K, 1 .. M] of integer =
    (
      (2, 5, 3, 4),
      (7, 6, 5, 2),
      (4, 7, 2, 5),
      (1, 3, 5, 7),
      (2, 8, 6, 3)
    );



var
  Party: array[1 .. M] of integer;
  i, j: integer;
  maxParty, PosMax: integer;
begin
  for i := 1 to K do begin

    PosMax := 1;
    for j := 2 to M do
      if Results[i, j] > Results[i, PosMax]
        then PosMax := j;
    Inc(Party[PosMax]);

  end;
  maxParty := 1;
  for i := 2 to M do
    if Party[i] > Party[maxParty]
      then maxParty := i;

  WriteLn('Party #', maxParty);
end.