Циклические вычислительные процессы в Паскале. - Помощь студентам

Pavel_Ghost · 26.05.2010, 16:59

Дано 100 чисел. Определить, сколько из них принимают наибольшие значения.

Pavel_Ghost · 27.05.2010, 15:54

Блин...ребят. Пожалуйста помогите плиз решить.

Grag · 27.05.2010, 16:16

Делаешь сортировку массива по убыванию, потом считаешь, сколько первых чисел в массиве равны друг другу... Вот тебе и будет количество максимальных чисел в последовательности (в массиве)...

Pavel_Ghost · 27.05.2010, 16:45

Эх... да я просто не шарю в этом вообще...

А мне через час распечатывать идти надо.

DoDge_VipeR · 27.05.2010, 17:16

Код:

k:=1;
for i:=2 to 100 do
if m[i]>m[k] then k:=i;
c:=0;
for i:=1 to 100 do
if m[i]=m[k] then inc(c);

Pavel_Ghost · 27.05.2010, 17:17

Спасибо большое.

26.05.2010, 16:59	#1
Pavel_Ghost Регистрация: 21.05.2010 Сообщений: 7	Циклические вычислительные процессы в Паскале. Дано 100 чисел. Определить, сколько из них принимают наибольшие значения.

27.05.2010, 16:16	#3
Grag А может и не... Участник клуба Регистрация: 27.03.2010 Сообщений: 1,269	Делаешь сортировку массива по убыванию, потом считаешь, сколько первых чисел в массиве равны друг другу... Вот тебе и будет количество максимальных чисел в последовательности (в массиве)... Перемешивай дело с бездельем и не сойдешь с ума...

27.05.2010, 17:16	#5
DoDge_VipeR Форумчанин Регистрация: 30.04.2010 Сообщений: 317	Код: `k:=1; for i:=2 to 100 do if m[i]>m[k] then k:=i; c:=0; for i:=1 to 100 do if m[i]=m[k] then inc(c);` icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ	Urz-3	Помощь студентам	5	06.12.2011 06:33
Циклические вычислительные процессы.	Pavel_Ghost	Помощь студентам	2	23.05.2010 19:25
С++ Циклические вычислительные процессы.	bpystep	Помощь студентам	19	19.09.2009 23:27
ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ	Urz-3	Помощь студентам	2	07.06.2009 18:56

27.05.2010, 15:54	#2
Pavel_Ghost Регистрация: 21.05.2010 Сообщений: 7	Блин...ребят. Пожалуйста помогите плиз решить.

27.05.2010, 16:45	#4
Pavel_Ghost Регистрация: 21.05.2010 Сообщений: 7	Эх... да я просто не шарю в этом вообще... А мне через час распечатывать идти надо.

27.05.2010, 17:17	#6
Pavel_Ghost Регистрация: 21.05.2010 Сообщений: 7	Спасибо большое.