массив свернуть в кольцо и выполнить сдвиг
Добавлено: 31 май 2009, 23:14
Нужно Массив целых чисел х[1]... х[п] «свернуть в кольцо» и повернуть вправо на К позиций (К может быть больше п).
Вот что получилось но не робит! Очень срочно надо. Пожалуйста
Вот что получилось но не робит! Очень срочно надо. Пожалуйста
Код: Выделить всё
program jopa;
uses crt;
type mas=array[1..1000] of integer;
var m:mas;k,tmp,i,n:integer;
begin
clrscr;
writeln('vvedi n');
readln(n);
writeln('vvedi ',n,' elementov massiva');
for i:=1 to n do
readln(m[i]);
writeln('vvedi kolichestvo pozicii sdviga');
readln(k);
for j:=1 to n-k do
begin
tmp:=m[n];
Move(m[2], m[i], (n - 1)* n);
m[1]:=tmp;
end;
for i:=1 to n do
write(m[i]:3);
readln;
end.