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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.05.2012, 21:09   #1
Fatalita
Пользователь
 
Регистрация: 12.10.2011
Сообщений: 33
По умолчанию Переменные с индексами. Массивы. Делфи7. Пмогите написать программу.

Даны натральные число n, целые чмсла a1,a2,...,a25; b1,b2,...,bn. Среди a1,a2,...,a25 нет повторяющихся чисел, нет их и среди b1,b2,...,bn. Получить все члены последовательности b1,b2,...,bn, которые не входят в последовательность a1,a2,...,a25.

Бьюсь, ничего не получается. Помогите написать. Дайте наводку, как выявить числа. Спасибо.
Fatalita вне форума Ответить с цитированием
Старый 09.05.2012, 21:46   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Код:
WriteLn (не входят:);
for i := 1 to n do
begin
  isFind := false;
  for j := 1 to 25 do
    if b[i] = a[j] then 
    begin
      isFind := true;
      break;
    end;
  if not(isFind) then Write (b[i], ' ');
end;
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функции. Массивы. Делфи7. Что не так? Fatalita Помощь студентам 2 09.05.2012 20:24
Написать программу в Делфи.Массивы. Rinka1 Помощь студентам 1 01.12.2011 22:25
С# задан массив 5х5. сформировать массивы А и В. в массив А поместить элементы с четными индексами, в массив В с нечетны Koksa Помощь студентам 0 10.10.2011 11:26
Подскажите пожалуйста как написать или какие разделы/библиотеки изучить для написания программы в делфи7 CeLaVie Помощь студентам 2 27.08.2008 23:47