Получить все члены последовательности b1 ... bn, которые не входят в последовательность a1 ... a25

@Lesya18 · Регистрация: 05.12.2018

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

Есть код задачи со вложенными циклами. надо сделать с процедурой.
Помогите пожалуйста, у меня не получается. Выдает ошибку.
Я еще не особо понимаю как работать с процедурой
вот код

Delphi

Const
  N=15;
  M=9;
var
  I,J:Integer;
  B:array [1..M] of Integer;
  A:array [1..N] of Integer;
  Flag: Boolean;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  for I:=1 to N do
    begin
      Write ('Ввод A ');
      Readln (A[i]);
    end;
  for J:=1 to M do
    begin
      Write ('Ввод B ');
      Readln (B[j]);
    end;
  for J:=1 to M do
    begin
      Flag := True;
        for I:=1 to N do
          if B[J] = A[I] then
            begin
              Flag := False;
              Break;
            end;
        if Flag = True then
          Writeln(B[J],' ');
    end;
  Readln;
end.

@Puporev · 21.03.2019, 17:03

Может условие задачи напишете?

@Lesya18 · 21.03.2019, 17:26 **[ТС]**

Даны натуральное число n, целые числа a₁ ... a₂₅, b₁ ... b_n.
Среди a₁ ... a₂₅ нет повторяющихся чисел, нет их и среди b₁ ... b_n.
Получить все члены последовательности b₁ ... b_n, которые не входят в последовательность a₁ ... a₂₅.

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	21.03.2019, 17:03	2
	Может условие задачи напишете? 0

@Lesya18 0 / 0 / 0 Регистрация: 05.12.2018 Сообщений: 23
	21.03.2019, 17:26 [ТС]	3
	Даны натуральное число n, целые числа a₁ ... a₂₅, b₁ ... b_n. Среди a₁ ... a₂₅ нет повторяющихся чисел, нет их и среди b₁ ... b_n. Получить все члены последовательности b₁ ... b_n, которые не входят в последовательность a₁ ... a₂₅. 0

Опции темы