Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.01.2010, 13:56   #1
anksunamun
Пользователь
 
Регистрация: 16.10.2009
Сообщений: 12
По умолчанию элементы в массиве, встречающиеся трижды

здравствуйте) у меня такая задача: сформировать массив (через random), найти в нём элементы, которые встречаются трижды и более, вывести их и написать, сколько раз встречаются

вот моя программа:
Код:
var
i,p,m:integer;
a:array[0..20] of integer;
BEGIN
p:=0;
m:=0;

for i:=1 to 20 do
begin
a[i]:=random(7);
writeln(a[i]);

if a[i]=p then 
m:=m+1;

end;
writeln(m,'   ',p);

END.
но что-то у меня не так, программа число ищет, а сколько раз оно встречается не указывает помогите, пожалуйста, исправить
anksunamun вне форума Ответить с цитированием
Старый 28.01.2010, 14:39   #2
CodeExpert
Заблокирован
 
Регистрация: 30.10.2009
Сообщений: 468
По умолчанию

Ммм, я бы сделал так, перебирал бы каждый элемент матрицы, к примеру возьмем 1-ый, и проверяю, если он встречается в матрице больше 3 раз по счетчику специально отведенному, то в другую матрицу порядка n*2 в первый столбце загоняем сам элемент, во втором сколько раз встречается в матрице, и так далее со всеми элементами, если не понятно, стучите в аське 577866848 или на почту Alexprokud@gmail.com растолкую...
CodeExpert вне форума Ответить с цитированием
Старый 28.01.2010, 16:16   #3
Petrovi4
Новичок
Джуниор
 
Регистрация: 16.06.2007
Сообщений: 0
По умолчанию

ICQ - 324-783-266
Сделаю быстро, качественно, недорого.
Petrovi4 вне форума Ответить с цитированием
Старый 28.01.2010, 16:21   #4
Чувак
Заблокирован
 
Регистрация: 20.01.2010
Сообщений: 0
По умолчанию

зделаю 3а 50р icq: 574490825
Чувак вне форума Ответить с цитированием
Старый 28.01.2010, 16:24   #5
Чувак
Заблокирован
 
Регистрация: 20.01.2010
Сообщений: 0
По умолчанию

И скать элементы нужно в отдельном цикле, так ты никогда и ничего не найдешь! пиши в асю 574490825 помогу, здесь просто нельзя бесплатно писать
Чувак вне форума Ответить с цитированием
Старый 28.01.2010, 16:25   #6
MadReason
Ищу работу
Форумчанин
 
Аватар для MadReason
 
Регистрация: 16.02.2007
Сообщений: 269
По умолчанию

сделаю и объясню что почем. 107335
Пишу на Delphi все что угодно, недорого, красиво, с комментариями
###icq 107335###
MadReason вне форума Ответить с цитированием
Старый 28.01.2010, 19:14   #7
SnX
Форумчанин
 
Регистрация: 30.10.2009
Сообщений: 114
По умолчанию

>зделаю 3а 50р

Сделаю за -50 руб. =D

const
MAX_ARR_SIZE=20;
MAX_RND=10;

var
i: integer;
values: array[1..MAX_ARR_SIZE] of integer;
map: array[0..MAX_RND] of byte;

begin
for i:=0 to MAX_RND do map[i]:=0;

Randomize;
for i:=1 to MAX_ARR_SIZE do
begin
values[i]:=Random(MAX_RND);
Inc(map[values[i]]);
end;

WriteLn('Result:');
for i:=0 to MAX_RND do
if map[i]>=3 then
WriteLn(i,' ',map[i]);
end.
SnX вне форума Ответить с цитированием
Старый 28.01.2010, 21:35   #8
freest
Пользователь
 
Регистрация: 26.09.2009
Сообщений: 10
По умолчанию

308 895 241 сделаю
ICQ: 308 895 241
программы под заказ
freest вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поменять местами элементы в массиве (реверс) Андрей.12 Помощь студентам 7 15.11.2009 16:51
как удалить одиннаковые элементы в массиве? -ushёl- Помощь студентам 22 15.05.2009 23:07
В заданном массиве чисел упорядочить элементы dolya2007 Общие вопросы C/C++ 0 01.05.2009 02:44
В массиве Р(10) введенном с клавиатуры поменять местами наибольший и наименьший элементы. Делфи. Lerika Помощь студентам 6 23.01.2009 11:52
Составить процедуру, которая в задоном массиве С заменяет элементы Absent Помощь студентам 1 25.03.2008 23:11