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

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