Unsubscribe from irrelevant news
To unsubscribe from another user's news, click the settings icon in this post and select the necessary option.
Все
Guestbook
More
Александр Наумов
wrote
15 October 2014 at 9:57
с телефона
status.html
const N = 10; type arr = array[1..N] of integer; var a: arr; i,j: byte; q: integer; procedure shift(var m: arr; p: integer); var b: integer; begin if p < 0 then for j:=1 to abs(p) do begin b := m[1]; for i:=1 to N-1 do m[i] := m[i+1]; m[N] := b; end else for j:=1 to p do begin b := m[N]; for i:=N downto 2 do m[i] := m[i-1]; m[1] := b; end; end; begin for i:=1 to N do begin a[i] := i; write(a[i],' '); end; writeln; readln(q); shift(a,q); for i:=1 to N do write(a[i],' '); writeln; end.
Александр Наумов
subscribed to 2 groups
26 October 2013 at 3:30
community-join.html
Александр Наумов
subscribed to the group
21 October 2013 at 12:48
community-join.html
Александр Наумов
subscribed to the group
12 October 2013 at 19:35
community-join.html
Александр Наумов
subscribed to 2 groups
4 October 2013 at 11:38
community-join.html
Александр Наумов
subscribed to 2 groups
9 August 2013 at 15:45
community-join.html
Uploading
Error loading page. Retry in 15 seconds.
Error loading page. Retry in 5 seconds.
Error loading page. Retry in 5 seconds.
С Новым годом!
от
Команда проекта
Мой Мир
Other people named Александр Наумов in My World