Вывести все числа из массива №2, которые не в ходят в состав массива №1 - Turbo Pascal

Формулировка задачи:

даны 2 массива, среди которых нет повторяющихся чисел. вывести все числа из массива №2, которые не в ходят в состав массива №1. не могу найти ошибку

Код к задаче: «Вывести все числа из массива №2, которые не в ходят в состав массива №1 - Turbo Pascal»

textual
for j:=1 to n do
  begin
    k := 0; {счетчик несовпадений}
    {сравниваем с числами массива a,
    если не равно наращиваем k, иначе переходим к следующей итерации}
    for i:=1 to 5 do if (m[j])<>(a[i]) then inc(k);
    {если не совпало со всеми 5 цифрами, то k = 5, тогда выводим m[j]}
    if k = 5 then write(m[j]:4)
  end

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы