Решить в паскале, если можно дано 2 масива: x: (10) i y (15). получить в массиве z все элементы массива y которые не входят в массив x.

Ничего не сказано про повторяющиеся значения. если не делать проверку на повторяющиеся значения, то вот программа (проверена на версии паскальавс.нет): var   x: array [1..10] of integer;   y, z: array [1..15] of integer;   i, j, k: integer;   f: boolean; begin //заполнение и распечатка массива х   for i : = 1 to 10 do   begin       x[i] : = random(10) + 1;       write(x[i]: 3);   end;   writeln;   //заполнение и распечатка массива у    for i : = 1 to 15 do    begin       y[i] : = random(10) + 1;       write(y[i]: 3);   end;   writeln;     //заполнение массива z    for i : = 1 to 15 do   begin       f : = true;       for j : = 1 to 10 do           if x[j] = y[i] then           begin               f : = false;               break;           end;       if f then       begin           k : = k + 1;           z[k] : = y[i];         end;   end;   //распечатка массива z    for i: =1 to k do       write(z[i]: 3); end. 

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.