Дан линейный массив на n элементов. выполнить циклический сдвиг всех его элементов на один вправо. (последний элемент в таком случае перемещается на начало массива) запрещенные служебные слова array/ 39

Const n=10;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i],' ');
 end;
writeln;
c:=a[n];
for i:=n downto 2 do a[i]:=a[i-1];
a[1]:=c;
for i:=1 to n do write(a[i],' ');
writeln;
end.

Пример:
8 2 24 20 27 44 25 41 16 21 
21 8 2 24 20 27 44 25 41 16 

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

var a: array[0..100,0..100] of integer;

 

n, m, i, j, max, col: integer;

 

 

 

begin

 

  read(n);

 

  read(m);  

 

  for i: =0 to n-1 do

 

  for j: =0 to m-1 do

 

  begin

 

  read(a[i,j]);

 

  if max< a[i,j] then max: =a[i,j];

 

  end;

 

  for i: =0 to n-1 do

 

  for j: =0 to m-1 do  

 

  if max=a[i,j] then begin inc(col); break; end;

 

  writeln(col);

 

  for i: =0 to n-1 do

 

  for j: =0 to m-1 do  

 

  if max=a[i,j] then begin write(i, ' '); break; end;    

 

end.

Автор рассказа - Виктор Юзефович Драгунский (1913 - 1972), название рассказа - "Когда я был маленьким".

Главный герой рассказа в детстве плохо пережёвывал пищу и, чтобы поддержать мальчика, во время еды его мама рассказывала сказки. Одной из таких сказок была "Красная Шапочка". Во время рассказа мама напоминала ребёнку хорошенько жевать. После завершения сказки, когда по сюжету охотники разрезали брюхо волку и из него вылезли невредимыми Красная Шапочка и её бабушка, малыш заметил: "Не прожевал, значит, волк-то!" - что противоречило маминым призывам пережёвывать и поэтому звучало особенно забавно.