Program N70231806_1; var a:array[ 1 .. 10 ] of shortint; i:byte; t:shortint; begin randomize; writeln('Исходный массив: '); for i := 1 to 10 do begin a[ i ] := random(21) - 10; write(a[ i ]:4) end; writeln; t := a[ 10 ]; for i := 10 downto 2 do a[ i ] := a[ i - 1 ]; a[ 1 ] := t; writeln('Результат: '); for i := 1 to 10 do write(a[ i ]:4); readln end.
2) program N70231806_2; var a:array[ 1 .. 12 ] of shortint; i, j:byte; t:shortint; begin randomize; writeln('Исходный массив: '); for i := 1 to 12 do begin a[ i ] := random(25) - 10; write(a[ i ]:4) end; writeln; for j := 1 to 4 do begin t := a[ 12 ]; for i := 12 downto 2 do a[ i ] := a[ i - 1 ]; a[ 1 ] := t end; writeln('Результат: '); for i := 1 to 12 do write(a[ i ]:4); readln end.
Объяснение:
Здесь Здесь
показатель результат
0 1
1 2
2 4
3 8
4 16
5 32
6 64
7 128
8 256
9 512
10 1024
11 2048
12 4096
13 8192
14 16384
15 32768
16 65536
17 131072
18 262144
19 524288
20 1048576
21 2097152
22 4194304
23 8388608
24 16777216
25 33554432
26 67108864
27 134217728
28 268435456
29 536870912
30 1073741824