Дан массив 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
Answers & Comments
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