Помогите ПОЖАЛУЙСТА! Pascale

[Ddradok]

Нужно написать программу для сдвига символов(а) в массиве не на определённое кол-во строк ,а по синусойде.

program daniil;
uses crt;
Const
N=20;
VAR
A,B:Array [1..N] of Byte;
k:ShortInt;
i,j:Byte;
BEGIN
Randomize;
Writeln('Initial array:');
For i:=1 to N do
begin
A[i]:=Random(10);
Write(A[i]:3);
end;
Writeln;
Writeln;
Write('k= ');
Readln(k);
Writeln;
Writeln;
If Abs(k)>=N then
Writeln('Error: k too big!')
else
If k=0 then B:=A
else
If (k>0) then
begin
for j:=1 to N-k do B[j+k]:=A[j];
for j:=N-k+1 to N do B[j-N+k]:=A[j];
end
else
begin
for j:=1-k to N do B[j+k]:=A[j];
for j:=1 to -k do B[N+k+j]:=A[j];
end;
Writeln('New array:');
For i:=1 to N do Write(B[i]:3);
Readln;
END.

это программа для перемещение рандомного массива на некое кол-во символов вправо, если можете переделайте её пожалуйста

[WinCoder]

Ddradok Для справки. Размножать темы, это плохо. И даже если Вам охренеть как срочно надо, это не повод так делать.