Question

Дан массив a из n элементов. Создайте массив размером n x n, первая строка которого представляет собой массив а, вторая строка массив а сдвинутый на один элемент вправо, третья сдвинута на два элемента и т.д.



Формат входных данных
На первой строке n, количество элементов массива

На второй строке n элементов массива.

Формат выходных данных
Массив размером n x n.

Примеры
входные данные
4
1 3 6 9

выходные данные
1 3 6 9
9 1 3 6
6 9 1 3
3 6 9 1

Answer 1

program raf105;

var

 a: array[1..50] of integer;

 b: array [1..50,1..50] of integer;

 i,j,n,c,o: integer;

begin

write('Введите размер массива: ');

readln(n);

writeln('Вводите числа по очереди');

for i:=1 to n do

 readln(a[i]);

c:= n+1;

for i:=1 to n do

begin

 writeln;

 j:=0;

 for o:=c to n do

 begin

   j:= j+1;

   b[i,j]:= a[o];

   write(a[o],' ');

 end;

 for o:=1 to c-1 do

 begin

   j:= j+1;

   b[i,j]:= a[o];

   write(a[o],' ');

 end;

 c:=c-1;

end;

end.

PascalABC 3.4.2