Вот что-то получилось, но что-то мне не нравится...проверьте пожалуйта:
Цитата:
var a,b:array[1..10] of integer;
k,i,max:integer;
function find(k,i:integer):Integer;
begin
if (i>10)or(a[i+1]=k) then
Result:=i
else
Result:=find(k,i+1);
end;
begin
for i:=1 to 10 do begin
a[i]:=random(10);b[i]:=random(10);
write(a[i]:5);
end;writeln;
for i:=1 to 10 do begin
write(b[i]:5);
end;writeln;
for i:=1 to 10 do begin
k:=find(b[i],1);
if k=11 then begin
write(b[i]:5);
if max<b[i] then max:=b[i];
end;
end;writeln;
end.
|