Всё . Эту задачку я смог решить.
Uses Crt ;
{Описание переменных}
Var
A: Array[1..20] of Integer;
B: Array[1..20] of Integer;
C: Array[1..20] of Integer;
n,i,j,k:Integer;
Begin
ClrScr;
Writeln('Количество элементов массива - целое число <=20');
{Ввод значения переменной N}
Readln (N);
{If (N>=1) and ( N<=20) then }
{begin }
{Значение переменной N задано верно}
Writeln('Значения элементов массива - целые числа. Введите массив А');
{Ввод значений элементов массива A}
For I := 1 to N do
Begin
Write('A[',I,']=');
Readln(A[I]);
End;
Writeln('Значения элементов массива - целые числа. Введите массив B');
{Ввод значений элементов массива B}
For I := 1 to N do
Begin
Write('B[',I,']=');
Readln(B[I]);
End;
j:=0;
For i:=1 to n do
Begin
if (a[i]<>b[i]) then
begin
c[j+1]:=a[i];
j:=j+1
end
else
End;
а кто-нибудь может сказать ,как сделать , чтобы элементы в массиве С не повторялись, то есть были уникальными?
Сообщение отредактировано: jmih -