Наибольшее число в последовательности и его размещение Опции

[Kolyancz]

Задана последовательность N чисел. N<=1000. Найдите наибольшее число в этой последовательности и укажите на какой позиции оно находится. Если число повторяется, то указать все его позиции.
Например: для последовательности 569 3 567 94 569 219 546
Ответ:
569
1 5
Впорос: как выглядит функция определения наибольшего числа и расчета его размещений?

[volvo]

тогда поменять прото начальное max:=0;

Тогда не отработает, если все числа - меньше чем 0... Все проще: надо присваивать max первому элементу последовательности...

Вот однопроходный алгоритм:

  max := a[1];
  j := 0;
  for i := 1 to n do begin
    if a[i] = max then begin
      inc(j); b[j] := i;
    end
    else
      if a[i] > max then begin
        max := a[i];
        j := 1; b[j] := i;
      end;
  end;

  for i := 1 to j do
    write(b[i]:5);

Сообщение отредактировано: volvo - 9.12.2008 19:39