3 массива, и каша в голове... Опции

[jmih]

Кто-нибудь может помочь с задачкой ?

Как сформировать одномерный массив С, содержащий элементы массива А с четными номерами, которых нет в массиве В.

Всё . Эту задачку я смог решить.

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 - 28.12.2006 9:09

[hiv]

а кто-нибудь может сказать ,как сделать , чтобы элементы в массиве С не повторялись, то есть были уникальными?

См. задание

Как сформировать одномерный массив С, содержащий элементы массива А с четными номерами, которых нет в массиве В.

Теперь при вставке значений в массив А проверяй не только что их нет в массиве В, но и в массиве А.