Дан массив a из n элементов. Сделайте массив размером n x
Дан массив a из n элементов. Сделайте массив размером n x n, первая строчка которого представляет собой массив а, 2-ая строчка массив а сдвинутый на один элемент на право, 3-я сдвинута на два элемента и т.д.
Формат входных данных
На первой строке n, количество частей массива
На 2-ой строке 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
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
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.