Составить программу циклич.перестановки - Pascal ABC
Формулировка задачи:
Составить программу циклической перестановки элементов одномерного массива a [n], при которой1 i-ый элемент становится i+1-м, а последний элемент становится первым.
Мне нужно решить эту задачу двумя способами,помогите пожалуйста.
Решение задачи: «Составить программу циклич.перестановки»
textual
Листинг программы
- const nmax=100;
- var a:array[1..nmax] of integer;
- n,i,j,x:integer;
- begin
- randomize;
- repeat
- write('Размер массива от 2 до ',nmax,' n=');
- readln(n);
- until n in [2..nmax];
- writeln('Исходный масссив');
- for i:=1 to n do
- begin
- a[i]:=random(100);
- write(a[i]:4);
- end;
- writeln;
- x:=a[n];
- for i:=n downto 2 do
- a[i]:=a[i-1];
- a[1]:=x;
- writeln('Исходный массив');
- for i:=1 to n do
- write(a[i]:4);
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
