Question

Задача на PascalABC.net нужно написать программу: На праздник был устроен конкурс. В конкурсе участвовало N человек. Известен рост каждого (А[i]). Нужно узнать количество человек которые равны самому высокому человеку не считая его самого.ограничения:1 < = N < = 10000, 1 < = A = 1000

Answer 1

Ответ:

На праздник был устроен конкурс. В конкурсе участвовало N человек. Известен, рост каждого (A[I]). Нужно узнать количество человек, рост которых равен росту самого высокого (не считая его самого). Ограничение: 1<=N<=10000, 1<=A<=10000 Формат ввода: N, A[1], A[2], ... , A[N] Формат вывода: KOL - количество человек, которые равны самому высокому не считая его самого. Пример ввода: 5 100 200 300 300 300 Пример вывода: 2

Answer 2

Конечно, вот пример программы на PascalABC.NET, которая решает данную задачу:

pascalCopy code
program Contest;

var
  N, i, maxHeight, count: integer;
  A: array[1..10000] of integer;

begin
  // Вводим количество участников
  write('Введите количество участников (N): ');
  readln(N);

  // Вводим рост каждого участника
  writeln('Введите рост участников:');
  for i := 1 to N do
  begin
    write('A[', i, ']: ');
    readln(A[i]);
  end;

  // Находим самый высокий рост
  maxHeight := A[1];
  for i := 2 to N do
  begin
    if A[i] > maxHeight then
      maxHeight := A[i];
  end;

  // Считаем количество участников, равных самому высокому, не считая его самого
  count := 0;
  for i := 1 to N do
  begin
    if (A[i] = maxHeight) and (i <> 1) then
      Inc(count);
  end;

  // Выводим результат
  writeln('Количество участников, равных самому высокому (не считая его самого): ', count);
end.

Эта программа запрашивает у пользователя количество участников и их рост, затем находит самый высокий рост и подсчитывает количество участников с таким же ростом (не считая самого высокого).