|
|
вернуться в форумПоказать все сообщения Спрятать все сообщенияvar i,z,n,m:word; a:array[1..1000] of byte; begin readln(n,m); for i:=1 to n do readln(a[i]); z:=(m mod n)+1; i:=0; repeat write(a[z]); if z=n then z:=1 else inc(z); inc(i); until i>=10; readln; end. ГЛЕБ ЗАТКНИСЬ, ТИМУС ГОВНО tests on timus maximally optimized with respect to other sites Here we can see scintific interest and hornest. |
|
|