Задача с массивами

[Koreps]

Вообщем тема такая :
у нас есть два массива А и B. Нужно сравнить элементы этих массивов между собой, и те элементы, которые не встречаются (т.е не равны) в двух массивах сразу, т.е различные эл-ты запихнуть в массив С, причем вначале элементы массива А, а потом B.

Ввод массивов и т.д вопросов не вызвал, а вот само основное условие, по которому будет отбор элементов, т.е как сравнить элементы массива А с элементами из массива B, - тут я уже завис =/

Вот, что получилось пока :

	
	

			
				Program viborka;
Uses crt;
Const max = 10;
Type mas = array [1..max] of integer;
Var nA, nB : byte;
    c, b, a : mas;
    k, i, j : byte;
    bb : boolean;
Begin
  clrscr;
  repeat
    write ('Введите кол-во эл-тов массива А ');
    readln (nA);
    if (nA <= 0) or (nA > max) then
      writeln ('Ошибка!');
  until (nA > 0) and (nA <= max);
  repeat
    write ('Введите кол-во эл-тов массива B ');
    readln (nB);
    if (nB <= 0) or (nB > max) then
      writeln ('Ошибка!');
  until (nB > 0) and (nB <= max);
  writeln ('Ввод элементов массива А : ');
  for i := 1 to nA do begin
    write (i,'-ый элемент = ');
    readln (a[i]);
  end;
  writeln ('Ввод элементов массива B : ');
  for j := 1 to nB do begin
    write (j,'-ый элемент = ');
    readln (b[j]);
  end;
  
  (* --- УСЛОВИЕ И САМА ЗАДАЧА --- *)
  
 
 End.
			
		

[VIK_aka_TOR]

держи...

Uses crt;
Const max = 10;
Type mas = array [1..max] of integer;
Var nA, nB : byte;
    c, b, a : mas;
    k, i, j : byte;
    bb : boolean;
Begin
  clrscr;
  repeat
    write ('Введите кол-во эл-тов массива А ');
    readln (nA);
    if (nA <= 0) or (nA > max) then
      writeln ('Ошибка!');
  until (nA > 0) and (nA <= max);
  repeat
    write ('Введите кол-во эл-тов массива B ');
    readln (nB);
    if (nB <= 0) or (nB > max) then
      writeln ('Ошибка!');
  until (nB > 0) and (nB <= max);
  writeln ('Ввод элементов массива А : ');
  for i := 1 to nA do begin
    write (i,'-ый элемент = ');
    readln (a[i]);
  end;
  writeln ('Ввод элементов массива B : ');
  for j := 1 to nB do begin
    write (j,'-ый элемент = ');
    readln (b[j]);
  end;
  k := 0;
for i:= 1 to nA do
  begin
   for  j:=1 to nB do
    if a[i] = b[j] then break;
    if (j = nB) and (a[i] <> b[j]) then 
      begin
        inc(k);
        c[k] := a[i];
      end;
 end;
 
for i:= 1 to nB do
  begin
   for  j:=1 to nA do
    if b[i] =a[j] then break;
    if (j = nA) and (b[i] <> a[j]) then 
      begin
        inc(k);
        c[k] := b[i];
      end;      
  end;
// вывод массива C
for i:= 1 to k do
  writeln('C[',i,']=', c[i]);
 
 End.

[Hacker19_90]

держи...

Вот для массива C
Такая запись

Type mas = array [1..max] of integer;
.......................
c, b, a : mas;

Вашпешь не катит!

[VIK_aka_TOR]

Сообщение от Hacker19_90

Вот для массива C
Такая запись

Вашпешь не катит!

согласен... малость не катит... не всегда пройде трюк...

type mas = array [1..max] of integer;
mass  = array [1..2 * max] of integer;
.... 
b, a : mas;
c : mass;

так прокатит... не знаю захавает ли 2 * max турбо паскаль... но абс кушает... в случае чего автор темы думаю понял что нужно доделать)))