Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
1 / 1 / 1
Регистрация: 12.11.2013
Сообщений: 81

Найти наименьшее из чисел первой последовательности, которые не принадлежат второй

12.11.2013, 22:42. Показов 1248. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Две последовательности содержат действительные элементы. Найти наименьшее из этих чисел
первой последовательности, которые не принадлежат второй последовательности.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
12.11.2013, 22:42
Ответы с готовыми решениями:

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

Найти количество четных чисел в первой последовательности и количество нечетных во второй
помогите пожалуйста решить((( даны две последовательности целых чисел а1,...,а5 и в1,...,в5 найти количество четных чисел в первой...

Найти в первой очереди максимальное число а во второй - наименьшее
Помогите с программой: Даны две очереди в каждой очереди находится по 10 различных чисел. Найти в первой очереди максимальное число а...

2
25 / 25 / 32
Регистрация: 24.10.2013
Сообщений: 154
12.11.2013, 23:09
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
var a, b : array[1..255] of integer;
    i, j, ma, mb, k : byte;
    min, buf : integer;
begin
     clrscr;
     randomize;
     writeln('Ââåäèòå ðàçìåð ìàññèâà a è b');
     readln(ma, mb);
     for i:=1 to ma do begin
     a[i]:=random(100)-50; write(a[i]:4); end;
     writeln; writeln;
     for i:=1 to mb do begin
     b[i]:=random(100)-50; write(b[i]:4); end;
     
     //Сортируем первый массив по возростанию
     for i:=1 to ma-1 do
     if a[i]>a[i+1] then begin
     buf:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=buf;
     end;
 
     writeln;
     writeln;
     
     //Проверяем наличие элементов первого массива во втором массиве по порядку (не забываем, что наш массив А уже отсортирован)
     k:=0;
     for i:=1 to ma do begin
     for j:=1 to mb do begin
     if  a[i]<>b[j] then inc(k);
     if k=mb then begin writeln(a[i]); break; end;
     end;
     if k=mb then break;
     k:=0;
     end;
end.
0
1 / 1 / 1
Регистрация: 12.11.2013
Сообщений: 81
12.11.2013, 23:24  [ТС]
Выдает не наименьшее число
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
12.11.2013, 23:24
Помогаю со студенческими работами здесь

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

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru