Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
ZZpvpZZ
0 / 0 / 0
Регистрация: 03.04.2012
Сообщений: 2
1

Найти наименьшее среди тех чисел первой последовательности, которые не входят во вторую

08.04.2012, 11:17. Просмотров 1396. Ответов 1
Метки нет (Все метки)

Даны две последовательности по 30 целых чисел в каждой. Найти наименьшее среди тех чисел 1-ой последовательности, которые не входят во вторую последовательность (считая, что хотя бы одно такое число есть).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.04.2012, 11:17
Ответы с готовыми решениями:

Найти наименьшее среди тех чисел первой последовательности, которые не входят во вторую
Даны две последовательности по 30 целых чисел. Найти наименьшее среди тех чисел первой...

Найти наименьшее среди тех чисел первой последовательности, которые не входят во вторую
Даны две последовательности по n целых чисел в каждой. Найти наименьшее среди тех чисел первой...

Найти наименьшее среди тех чисел первой последовательности, которые не входят во вторую последовательность
Программа.Даны две последовательности по n целых чисел в каждой. Найти наименьшее среди тех чисел...

Множество: Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу
Даны две таблицы по 10 элементов в каждой. Найдите наименьшее среди тех чисел первой таблицы,...

Найти наименьшее среди тех чисел последовательности, которые не входят в другую последовательность
Даны две последовательности чисел.Найти наименьшее среди тех чисел последовательности,которые не...

1
butaevil
1 / 1 / 1
Регистрация: 07.04.2012
Сообщений: 3
09.04.2012, 04:05 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
const N=30;
       Var iMin:Integer;   {Минимальный элемент}
           A1,A2:Array[0..N] of Integer; {Наши массивы}
           i,j:Integer;   {Счетчики циклов}
           flag:Boolean;  {Признак для определения вхождения элемента во второй массив}
begin
   {Случайные массив А1}
  Randomize;
   for i:=0 to N do Begin
       A1[i]:=Random(50);
       write(A1[i],' ');
   end;
 
   writeln;
   {Случайный массив А2}
   for i:=0 to N do Begin
       A2[i]:=Random(50);
       write(A2[i],' ');
   end;
 
   iMin:=999;    {Типа большой минимум}
 
   {Поиск минимального элемента внутри массива}
      for i:=0 to N do Begin
          if iMin>A1[i] then Begin   {Если нашли элемент меньше нашего минимума}
           flag:=true;               {То проверяем его наличие во втором массиве с помощью флага}
               for j:=0 to N do Begin   {Ищем найденный элемент во втором массиве}
                    if A1[i]=A2[j] then flag:=false;  {Если нашли, то обозначаем это признаком флага}
               end;
               if flag then iMin:=A1[i]; {Если элемент во втором массиве найден не был, то присваиваем в минимум значение этого элемента}
          end;
 
      end;
 
      {Выводим результаты на экран}
      writeln;
      writeln('==============================');
    writeln('Минимальное число: ',iMin);
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2012, 04:05

Найти наименьшее среди тех чисел первой последовательности
Даны две последовательности. Найти наименьшее среди тех чисел 1-ой последовательности, которые не...

Найти количество чисел в последовательности, которые входят в промежуок от А до В
Помогите решить задачи по Паскаль, очень буду благодарен, а то я в этом не шарю=( 2. Дана...

Массивы. Найти наименьшее среди тех элементов массива X, которые не являются элементами массива Y
даны два целочисленных массива.найти наименьшее среди тех элементов массива X,которые не являются...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru