|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.02.2012, 19:00 | #1 |
Пользователь
Регистрация: 16.12.2010
Сообщений: 22
|
Подсчитать количество элементов
Подсчитать количество элементов массива , равных max за 1 проход по одномерному массиву.
Переменные: max,nmax,i,n const n=30 Заранее спасибо! |
21.02.2012, 19:27 | #2 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Так ещё раз!
За один проход найти максимальный элемент массива и количество равных ему?
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
21.02.2012, 19:39 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Hacker19_90, именно так!
mexx1337, это же элементарно, пишете обычный поиск максимального значения. потом добавляете переменную (пусть это будет CntEquMax типа integer). перед циклом (там, где Вы иницилизируете переменную Max) присваивайте ей единицу. потом, в цикле, если очередной элемент массива БОЛЬШЕ Max, тогда сбрасываете счётчик, если же очередной элемент массива равен Max - увеличиваем счётчик на 1. всё. Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
подсчитать количество элементов в файле целых чисел | Aimet | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 16.06.2011 20:11 |
В массиве из n элементов подсчитать количество четырёд идущих подряд одинаковых элементов ( Delphi7 ) | Анастасья | Помощь студентам | 1 | 31.03.2011 19:23 |
В массиве A, состоящем из 10 элементов, подсчитать количество положительных элементов | Alex61 | Помощь студентам | 5 | 16.05.2009 23:06 |
Подсчитать количество положительных элементов в маcсиве | ELL | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 14.02.2009 22:44 |