Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
ZZpvpZZ
1

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

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

Даны две последовательности по 30 целых чисел в каждой. Найти наименьшее среди тех чисел 1-ой последовательности, которые не входят во вторую последовательность (считая, что хотя бы одно такое число есть).
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2012, 11:17
Ответы с готовыми решениями:

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

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

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

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

1
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2012, 04:05

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

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


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

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

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