|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.10.2008, 11:07 | #1 | |
Пользователь
Регистрация: 17.10.2008
Сообщений: 35
|
Pascal: Наиболее часто встречающееся число в массиве.
Люди, помогите с решением задачки. Завтра сдавать, а из варианта эта задача не готова. Сделал всё, кроме неё.=(
Выручите плиз=( Цитата:
Последний раз редактировалось MaGWaY_minsk; 28.10.2008 в 11:30. |
|
28.10.2008, 12:40 | #2 |
Форумчанин
Регистрация: 12.09.2008
Сообщений: 239
|
const N=20;
var a:array[1..N] of integer; count,maxEl,maxCount,curEl:integer; i,temp:integer; check:boolean; begin writeln('VVedite kol-vo:'); readln(count); for i:=1 to count do begin writeln('vvedite ',i,' element:'); readln(a[i]); end; {сортировка} check:=true; while check do begin check:=false; for i:=2 to count do if a[i-1]>a[i] then begin temp:=a[i-1]; a[i-1]:=a[i]; a[i]:=temp; check:=true; end; end; {конец сортировки} temp:=1; curEl:=a[1]; MaxCount:=1; MaxEl:=a[i]; for i:=2 to count+1 do if i>count then begin if temp>MaxCount then MaxEl:=a[count]; end else begin if a[i]<>curEl then begin if temp>MaxCount then begin MaxCount:=temp; MaxEl:=a[i-1]; end; temp:=1; CurEl:=a[i]; end else inc(temp); end; writeln(MaxEl); readln; end.
Надо бы избавиться от привычки ставить многоточие.....
|
20.01.2010, 00:22 | #3 | |
Форумчанин
Регистрация: 03.02.2009
Сообщений: 126
|
Вот мой вариант:
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль. Задачка по массиву | -ZaK- | Помощь студентам | 6 | 18.10.2010 00:08 |
Задачка со строками (Паскаль) | GaJIbI4 | Помощь студентам | 3 | 23.01.2009 20:57 |
Задачка на массивы. Проверка и нумерация. | Farfalla | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 27.12.2007 08:53 |
Задачка. Паскаль. | Nexx | Помощь студентам | 5 | 30.11.2007 18:16 |
Паскаль. Задачка с массивами. | ProPaL | Помощь студентам | 4 | 11.11.2007 18:58 |