В каком из примеров параграфа использовано больше всего слов профессионализмов ​

Объяснение:

Здесь                  Здесь

показатель      результат

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

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.