program exam;type ar=array[1..1000]of integer;var a,b,q,c:ar; i,n,s,kk,t,k,m,j:integer;function many(c:ar):integer;var i:integer;beginmany:=0; for i:=1 to n doif c=n then many:=many+1;end;begin read(n,m); for i:=1 to m doread(a,b); s:=i; for j:=1 to m dobegin inc(i); a:=b[j]; b:=a[j];...
|