Пожаловаться
- 22.03.2018 17:54
- Информатика
- remove_red_eye 2157
- thumb_up 45
Ответы и объяснения 2
Program n1;
var a:array [1..35] of integer;
i,n,temp: integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
temp := a[n];
for i := n downto 2 do a[i] := a[i - 1];
a[1] := temp;
for i := 1 to n do write(a[i], ' ');
end.
var a:array [1..35] of integer;
i,n,temp: integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
temp := a[n];
for i := n downto 2 do a[i] := a[i - 1];
a[1] := temp;
for i := 1 to n do write(a[i], ' ');
end.
Пожаловаться
- 23.03.2018 03:58
- thumb_up 32
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger;
var a:=ReadArrInteger(n);
a:=a[n-1:n]+a[:n-1]; a.Println
end.
Пример
6
4 5 3 4 2 3
3 4 5 3 4 2
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger;
var a:=ReadArrInteger(n);
a:=a[n-1:n]+a[:n-1]; a.Println
end.
Пример
6
4 5 3 4 2 3
3 4 5 3 4 2
Пожаловаться
- 24.03.2018 21:49
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы