Даны натуральные

[Маша906]

Даны натуральные а1,… а5о, т,b1,…, bm (а1 > а2 >…>a50). Подсчитать количество тех bi , 1<= i<=m, для которых нет равных среди a1, ..., а50.язык программирования делфи

[Sibedir]

Наработки в студию

[Mad_Cat]

c:=0
for i:=1 to m do begin
f:=true;
for j:=1 to 50 do
if b[i]=a[j] then begin f:=false;break;end;
if f  then inc(c);
end;
Caption:=IntToStr(c);

[Utkin]

Mad_Cat, ожидались наработки от ТС

if b[i]:=a[j] then begin f:=false;break;end;

Так было задумано?

[Mad_Cat]

ожидались наработки от ТС

Они ожидались бы минимум до второго пришествия