Одномерные массивы

[L_Killer]

Помогите пожалуйста решить такую задачу:

Даны натуральное число n, целые числа A1..A25 и B1..Bn.
Среди A1..A25 и B1..Bn нет повторяющихся.
Получить все члены последовательности B1..Bn.

ЗЫ и если можно, с комментариями. Очень хочу сам понять как это делается

[overtake]

A25 и BN это массивы?

[L_Killer]

A и B это массивы. От 1 до 25 и от 1 до N - это колличество элементов массивов. И что тут непонятного...

[overtake]

program ms;
uses crt;
var a:array[1..25] of integer; 
     b:array[1..n] of integer;
     i,n,sum:integer;
begin clrscr;
randomize;
writeln('vvded kol-vo ');
readln(n);
for i:=1 to 25 do begin
a[i]:=random(100)-50;
write(a[i]:5);
end;
writeln;
for i:=1 to n do begin
b[i]:=random(1000)-50;
write(b[i]:5);
end;
writeln;
for i:=1 to n do
sum:=a[i]+b[i];
writeln(sum);
end;
readln;
end.

остальное доделаешь сам))

[sheka]

255507394.

[freest]

308---895---241

[L_Killer]

Ну сумма то мне точно не нужна. Плюсик между массивами я бы и сам поставил))
А, ладно. ВСе равно спасибо

[Rusat]

Вот что то так:
Program Massiv;
Uses Crt;
const n=15;
var i,j,k:integer;
a:array [1..25] of integer;
b:array [1..n] of integer;
begin
Randomize;
ClrScr;
For i:=1 to 25 do begin
a[i]:=random(40);
write(a[i], #32);
end;
writeln;
For j:=1 to n do begin
k:=random(40);
for i:=1 to 25 do begin
if k<>a[i] then
b[j]:=k
else
k:=random(40);
end;
write(b[j], #32);
end;
readkey;
end.

[QuadroX]

Понт не защитан.