Найти наибольший элемент массива К, не имеющий себе равных в массиве L

@~~Alarst~~ · 27.04.2011, 00:29. **Показов** 1380. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Здравствуйте. Дано два целочисленных массива K(m) и L(n). Найти наибольший элемент массива К, не имеющий себе равных в массиве L.
Задал два массива по аналогии с подобными задачами, но максимальный элемент у меня равен либо нулю, либо первому элементу. А затем, как я понял, надо сравнить этот максимальный элемент с каждым из второго массива. Подскажите пожалуйста.

PureBasic

CLS 
INPUT "vvedite kolichestvo elementov M: ",m
DIM K(m) 
FOR I = 1 TO M 
INPUT "vvedite element ",K(i)
NEXT
PRINT "massiv1"
FOR i=1 TO M
PRINT K(i);
MAX=M(1)
FOR I = 2 TO M 
IF MAX < M(I) THEN MAX=M(I)
NEXT I 
PRINT
PRINT "_________" 
PRINT "Maximum = "; MAX
 
PRINT
PRINT
PRINT
INPUT "vvedite kolichestvo elementov 2 massiva: ", n
DIM L(n)
FOR j = 1 TO n
INPUT "vvedite element massiva: ", L(j)
NEXT
PRINT "massiv2"
FOR j = 1 TO n
PRINT L(j);
NEXT

@~~Alarst~~ · 28.04.2011, 20:44 **[ТС]**

После восьмой строчки забыл NEXT. Теперь стабильно максимум равен нулю. Подскажите, в чем ошибка?

@~~Alarst~~ · 02.05.2011, 21:59 **[ТС]**

Первая часть работает: заполняет оба массива, находит макс. элемент первого. Но вот как найти наибольший элемент массива К, именно не имевший себе равных в массиве L, я не знаю. Помогите пожалуйста.

PureBasic

CLS
INPUT "vvedite kolichestvo elementov massiva K: ", N
DIM k(N)
FOR I = 1 TO N
INPUT "vvedite element massiva", k(I)
NEXT
PRINT
PRINT "Massiv K"
FOR I = 1 TO N
PRINT k(I);
NEXT
MAX = k(1)
FOR I = 1 TO N
IF MAX < k(I) THEN MAX = k(I)
NEXT I
PRINT
PRINT
PRINT "Maximalniy element = "; MAX
PRINT "__________"
PRINT
INPUT "vvedite kolichestvo elementov massiva L ", m
DIM l(m)
FOR j = 1 TO m
INPUT "vvedite element massiva", l(j)
NEXT
PRINT
PRINT "massiv L"
FOR j = 1 TO m
PRINT l(j);
NEXT

@~~Alarst~~ · 17.05.2011, 00:25 **[ТС]**

Решил, если максимальный элемент присутствует в первом массиве, то задаем заново второй. Так вот, если вставить это условие

PureBasic

1
2
3

for i = 1 to n
if max = k(i) then print "takoy element est"; "" : GOTO 1
next i

и метку 21 строку, то выводит ошибку повторяющегося определения. Наверно, потому что массив уже задан. Может, по-другому сделать? Подскажите.

echs · 17.06.2016, 08:28

Эта задача гораздо проще, чем вы думаете.
1. Надо сначала отсортировать первый массив по убыванию
2. Теперь можете спокойно брать максимальные элементы
первого массива и проверять есть ли они во втором...
3. Если нет - выводите на экран
4. Если вообще нет, то сообщение: Таких элементов нет.
(проверено)

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
m = 8
n = 16
DIM K(1 TO m) AS INTEGER
DIM L(1 TO n) AS INTEGER
 
FOR i = 1 TO m
   K(i) = 20 * RND
   PRINT K(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO n
   L(i) = 20 * RND
   PRINT L(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO m - 1
FOR j = i + 1 TO m
   IF K(i) < K(j) THEN SWAP K(i), K(j)
NEXT j, i
 
FOR i = 1 TO m
   FOR j = 1 TO n
      IF K(i) = L(j) THEN 100
   NEXT j
   PRINT K(i)
   GOTO 200
100
NEXT i
PRINT "TAKOGO ELEMENTA NET"
200
END

@~~Alarst~~ Заблокирован
	28.04.2011, 20:44 [ТС]	2
	После восьмой строчки забыл NEXT. Теперь стабильно максимум равен нулю. Подскажите, в чем ошибка? 0

Опции темы