Написать программу, которая сдвигает циклически вправо на заданное число позиций элементы массива

@dasha1002 · Регистрация: 17.02.2015

Author24 — интернет-сервис помощи студентам

Написать программу, которая сдвигает циклически вправо на заданное число позиций элементы массива.

@Puporev · 18.03.2015, 09:18

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4)
 end;
writeln;
repeat
write('Введите шаг сдвига 0<k<',n,' k=');
readln(k);
until k in [1..n-1];
k:=k mod n;
for i:=1 to k do
 begin
  x:=a[n];
  for j:=n downto 2 do
  a[j]:=a[j-1];
  a[1]:=x;
 end;
writeln('Сдвиг на ',k,' вправо');
for i:=1 to n do
write(a[i]:4);
readln
end.

@dasha1002 1 / 1 / 0 Регистрация: 17.02.2015 Сообщений: 9
		1
	Написать программу, которая сдвигает циклически вправо на заданное число позиций элементы массива 18.03.2015, 00:28. Показов 3875. Ответов 1 Метки нет (Все метки) Написать программу, которая сдвигает циклически вправо на заданное число позиций элементы массива. 1

	18.03.2015, 09:18

Написать программу, которая сдвигает циклически вправо на заданное число позиций элементы массива

Решение