паскаль. массив. цикл. здвиг элементов

[vykker]

здравствуйте. помогите пожалуйста.
сам с паскалем на ВЫ
Дан массив А из N целых чисел. Осуществить циклический сдвиг элементов массива вправо на одну позицию. При этом А1 перейдет в А2, А2 в А3 и т.д.
AN перейдет в A1

[ex.cluz]

Снизу страницы есть "Похожие темы".

Там есть ответ.

[vykker]

если это, то как подогнать под мою?
var
n: integer; // число эл-тов в массиве
k: integer; // номер вставляемого элемента
element: integer;
i: integer;
a: array of integer; // наш массив
begin
readln(element);
for i:= 1 to n do
begin
read(a[i]);
end;
for i:= n downto k do
begin
a[i+1]:= a[i];
end;
a[k]:= element;
end;

[ex.cluz]

На будущее, старайтесь код оформлять таким образом, как написано в "Правилах".

А зачем его "подгонять"? Все так, как вы и описали, кажется.

[vykker]

var
n: integer; // число эл-тов в массиве
element: integer;
i: integer;
a: array of integer; // наш массив
begin
readln(element);
for i:= 1 to n do
begin
read(a[i]);
end;
for i:= n downto k do
begin
a[i+1]:= a[i];
end;
a[k]:= element;
end.

т.е. я так понял без "номера вставляемого эл-та"?

[ROMA2PVT]

uses
  crt;
var
  a:array [1..100] of integer;
  i,n,temp:integer;
begin
randomize;
  write('Введите количество элементов: ');
  readln(n);
  writeln('Исходный массив: ');
  for i:=1 to n do
  begin
    a[i]:=random(10)-5;
    write(a[i],' ');
    end;
    writeln;
    writeln('Массив после сдвига элементов на одну позицию: ');
  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],' ');
  readln;
end.

[ex.cluz]

2ROMA2PVT
прям с клавиатуры снял

Только зачем рандомность прикручена?

[ROMA2PVT]

Только зачем рандомность прикручена?

Просто ненавижу вводить вручную.
P.S.Ну я думаю автор умеет заполнять массив вручную.

[vykker]

ну думаю он справится
спс
можно дальше понаглеть, если да то вот:
Описать функцию Sum(A,B) целого типа, находящую сумму всех целых чисел от А до В включительно (А и В -целые). Если А>В , то функция возвращает ноль. С помощью этой функции найти суммы чисел от А до В и от В до С, если даны числа А,В,С.

[ROMA2PVT]

Program Summa;
Uses 
   Crt;
var
 a, b, i, sum: integer;
begin
Clrscr;
write('Введите число а: ');
readln(a);
write('Введите число b: ');
readln(b);
sum:=0;
for i:=a to b do
begin
sum:=sum+i;
end;
writeln('Сумма чисел равна: ',sum);
end.

Вот те основа.Сам делай функцию.