Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 21.10.2010, 06:29   #1
Алина18
 
Регистрация: 20.10.2010
Сообщений: 1
По умолчанию Целочисленный массив. Элементы, которые встречаются более одного раза!

помогите,пожалуйста, решить задачу!
очень надо!

Найти максимальный из тех элементов заданного целочисленного массива размером 30 элементов, которые встречаются более одного раза!

заранее спасибо!
Алина18 вне форума Ответить с цитированием
Старый 21.10.2010, 07:03   #2
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

http://programmersforum.ru/showthread.php?t=100937
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Старый 21.10.2010, 07:10   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Что-то в этом роде?
Код:
MODULE ObxHello0;

    IMPORT StdLog,ObxRandom,Integers;
   VAR a:ARRAY(30) OF INTEGER;

    PROCEDURE Массив;
    VAR i:INTEGER;
    BEGIN
     StdLog.Clear;
     FOR i:=0 TO LEN(a)-1 DO
       a[i]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
        StdLog.Real(a[i]); 
        StdLog.Ln;    (* вывод строки и 0DX в рабочий журнал *)
     END;
    StdLog.Ln;
    END Массив;

PROCEDURE повтор(i:INTEGER):BOOLEAN;
VAR k:INTEGER;
BEGIN
 FOR k:=0 TO 29 DO
  IF (a[i]=a[k])&(i#k) THEN
   RETURN TRUE;
  END;
 END;
 RETURN FALSE;
END повтор;

PROCEDURE Do*;
VAR    i:INTEGER; max:INTEGER;
BEGIN 
  Массив();
  max:=-9999;
  FOR i:=0 TO 29 DO
   IF повтор(i) THEN
     IF max<a[i] THEN max:=a[i] END;
   END;
  END;
  StdLog.Ln;
  StdLog.String("Максимальный из повторяющихся = ");    
  StdLog.Int(max);
END Do;

END ObxHello0.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
дан целочисленный массив N. Удалить из массива все элементы,встречающиеся [менее двух раз]1 Zevsnet Паскаль, Turbo Pascal, PascalABC.NET 6 16.01.2011 18:01
поиск максимального элемента, который встречается более одного раза счастливая Помощь студентам 1 25.05.2010 15:41
Си. Вычеркнуть из слова X те буквы, которые встречаются в слове Z. hen Помощь студентам 1 29.04.2009 14:32
Найти все слова встречающиеся более одного раза(Си).Использовать двумерный массив. persalena Помощь студентам 1 07.12.2008 00:46


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840