Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент

[puporev]

Все, я пас, поздно очень у меня.

[LyaLya]

ну, пожалуйста не уходи, я же просто умру без вашей помощи

[puporev]

В основном поиске ведь используется флаг. Я его назвал ks, или количество совпадений, хотя это не количество, а сам факт совпадения.

while i<=t do
  begin
   j:=1;ks:=0;{ks=false}
   while j<=r do
     begin
      if a[i]=b[j] then
        begin
          k:=k+1;
          ks:=1;{ks=true}
          c[k]:=a[i]; 
          for l:=i to t-1 do
          a[l]:=a[l+1];
          t:=t-1;
          for l:=j to r-1 do
          b[l]:=b[l+1];
          r:=r-1;
        end
      else j:=j+1;
     end;
   if ks=0 then i:=i+1;{ks=false}
 end;

[LyaLya]

С равными элементами я разобралась, получилось примерно вот это:

PROGRAM pr2;
uses crt;
const n = 20; m = 10;
var a, c : array [1..n] of real;
b : array [1..m] of real;
t, l, j, i ,k, pr : integer;

BEGIN
clrscr; randomize;

for i:=1 to n do begin
a[i]:=random(50);
write (a[i]:5:0); end;
writeln;
for j:=1 to m do begin
b[j]:=random(50);
write (b[j]:5:0); end;
writeln;

k:=0;
for i:=1 to n do
for j:=1 to m do begin
if a[i]=b[j] then begin pr:=0;
for l:=1 to k do
if a[i]=c[l] then pr:=1;
if pr=0 then begin k:=k+1;
c[l]:=a[i]; end; end; end;
writeln;
for l:=1 to k do write(c[l]:5:0);
readln;
end.


Но с остальным...

[LyaLya]

PROGRAM pr2;
uses crt;
const n = 20; m = 10;
var a, c : array [1..n] of real;
b : array [1..m] of real;
t, l, j, i ,k, pr : integer;

BEGIN
clrscr; randomize;

for i:=1 to n do begin
a[i]:=random(50);
write (a[i]:5:0); end;
writeln;
for j:=1 to m do begin
b[j]:=random(50);
write (b[j]:5:0); end;
writeln;

k:=0;
for i:=1 to n do
for j:=1 to m do begin
if a[i]=b[j] then begin pr:=0;
for l:=1 to k do
if a[i]=c[l] then pr:=1;
if pr=0 then begin k:=k+1;
c[l]:=a[i]; end; end; end;
writeln;
for l:=1 to k do write(c[l]:5:0);
readln;
end.

[den911]

помогите решить задачу !!! сформировать одномерный массив из 10 первых положительных элементов другого одномерного массива