Сколько элементов равны наибольшему элементу

@IceLemon · Регистрация: 27.02.2017

Студворк — интернет-сервис помощи студентам

Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу.
В этой задаче нельзя использовать массив!

@Hitoku · 13.03.2017, 16:59

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  c,max,k,z:integer;
begin
  k:=1;
  write('Введите ',k,' элемент: '); readln(c);
  max:=c; z:=0;
  repeat
    inc(k);
    write('Введите ',k,' элемент: '); readln(c);
    if c>max then begin
      max:=c; z:=0;
    end;
    if c=max then inc(z);
  until (c=0) or (k=10000);
  writeln(z);
end.

Если я правильно понял, то первое вхождение максимального элемента считать не надо.
Если надо, то в 6 и 11 строках заменить на:

Pascal
1
max:=c; z:=1;

@IceLemon · 13.03.2017, 17:05 **[ТС]**

Почему-то первый же тест не проходит:
1
7
9
0
Выводиться 2, а надо 1

@Hitoku · 13.03.2017, 17:09

У меня 1 выводит

Добавлено через 1 минуту
В общем используйте тот код, в котором в 6 и 11

Pascal
1
max:=c; z:=0;

и ничего заменять не надо

@IceLemon · 13.03.2017, 17:11 **[ТС]**

А нет, всё работает, просто не то вводил. Спасибо!

@Hitoku · 13.03.2017, 17:15

Не по теме:

Да, вышло так, что

Pascal
13
if c=max then inc(z);

не привязан к первому условному оператору. Т.е. когда появляется новый максимальный - он автоматически учитывается и исправление с z:=1 не актуально в принципе

Новые блоги и статьи Все статьи Все блоги /
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .

@IceLemon 0 / 0 / 0 Регистрация: 27.02.2017 Сообщений: 29

	Сколько элементов равны наибольшему элементу 13.03.2017, 16:51. Показов 4964. Ответов 5 Метки нет (Все метки) Последовательность состоит из натуральных чисел и завершается числом 0. Всего вводится не более 10000 чисел (не считая завершающего числа 0). Определите, сколько элементов этой последовательности равны ее наибольшему элементу. В этой задаче нельзя использовать массив! 0

@IceLemon 0 / 0 / 0 Регистрация: 27.02.2017 Сообщений: 29
	13.03.2017, 17:05 [ТС]
	Почему-то первый же тест не проходит: 1 7 9 0 Выводиться 2, а надо 1 0

@IceLemon 0 / 0 / 0 Регистрация: 27.02.2017 Сообщений: 29
	13.03.2017, 17:11 [ТС]
	А нет, всё работает, просто не то вводил. Спасибо! 0

Сколько элементов равны наибольшему элементу

Решение