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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.02.2011, 16:03   #1
Say
Новичок
Джуниор
 
Регистрация: 06.02.2011
Сообщений: 3
Восклицание Массив

помогите плиз

Даны натуральное число N и одномерный массив A1, A2, …, AN натуральных чисел. Для каждого элемента определить число его вхождений в данный массив.
Say вне форума Ответить с цитированием
Старый 06.02.2011, 16:07   #2
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

с чем конкретно помоч?
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 06.02.2011, 16:11   #3
Say
Новичок
Джуниор
 
Регистрация: 06.02.2011
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Say Посмотреть сообщение
Для каждого элемента определить число его вхождений в данный массив.
хотя бы вот это как сделать? у меня беда с массивами
Say вне форума Ответить с цитированием
Старый 06.02.2011, 20:35   #4
0479
Форумчанин
 
Аватар для 0479
 
Регистрация: 27.09.2009
Сообщений: 153
По умолчанию

Вроди так

Код:
var a:array [1..100] of integer;
i,n,k,j,c:integer;fl:boolean;
begin
writeln('Vvedite n');
readln(n);
randomize;
for i:=1 to n do
readln(a[i]);
for i:=1 to n do begin
write (a[i]:4);end;writeln;
for i := 1 to n do
begin
  fl := true;
  for j := i - 1 downto 0 do
    if a[j] = a[i] then
    begin
      fl := false;
      break;
    end;
  c := 1;
  if fl then
  begin
    for j := i + 1 to n do
      if a[j] = a[i] then
        Inc(c);
    writeln('a[', i, '] = ',a[i],' : ', c);
  end;
end;
readln;
end.
0479 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задан вектор X[20]. Положительные числа переписать в массив Y, а отрицательные в массив W leha_demi Помощь студентам 2 24.09.2011 18:12
Дан массив А(20). Получить массив В(20), в котором В(1)=А(2), В(2)=А(1), В(3)=А(4), В(4)=А(3) и т.д. Выве nikita1 Помощь студентам 5 01.12.2010 18:16
Как конвертировать массив символов в массив байт davinci C++ Builder 6 30.10.2010 18:09
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. Marishkaa Помощь студентам 2 12.01.2010 16:54
Упорядочить массив в порядке возрастания и напечатать входной и исходный массив. TheVenny Помощь студентам 3 26.11.2008 15:06