Задача 22 Урок 15

Задача 22 Урок 15

У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.

type
  myArr = array [1..10] of integer;
var
  min, max, i, j : integer;
  flag : boolean;
  a,b : myArr;

begin
  randomize();
  min := -10;
  max :=  20;
  for i := low(a) to high(a) do
    a[i] := min + random(max - min + 1);
  for i := low(b) to high(b) do
    b[i] := min + random(max - min + 1);

  writeln('No in the second');
  for i := low(a) to high(a) do
  begin
    for j := low(b) to high(b) do
      if a[i] <> b[j] then
        flag := true
      else
      begin
        flag := false;
        break
      end;
    if flag then
      write(a[i], ' ');
  end;
  writeln;
  writeln('the first array');
  for i := low(a) to high(a) do
    write(a[i], ' ');
  writeln;
  writeln('the two array');
  for i := low(b) to high(b) do
    write(b[i], ' ');
  writeln;

  write('End');
  readln();
end.  

Вывод консоли:

No in the second
10 11 10 14 -7 7
the first array
15 10 15 9 11 10 -3 14 -7 7
the two array
-3 9 -8 -9 -3 -5 13 12 -6 15
End