Решение задачи на массивы в паскале

[MPAK92]

Добрый вечер.Задали написать прогу в паскале, мучаюсь несколько чаосв, не выходит толкового ничего.Завтра надо сдать.Помогите пожалуйста. Вот задание: С помощью функции Random получить массив размерностью [0..20]
Составить программу, осуществляющую циклический сдвиг массива на N позиций. N и направление сдвига задать в качестве входных величин.

Вот тело программы, до чего я дошёл.
║begin clrscr;
║randomize;
║assign(f,'C:\8.txt');
║rewrite(f);
║for k:=1 to 20 do begin
║a[k]:=random(15);
║c[k]:=a[k];
║write(f,a[k]:2,' ');
║end;
║writeln('Введите Н:');
║readln(n);
║writeln(f);
║write(f,'n= ',n,' ');
║writeln(f);
║for k:=1 to 20 do begin
║q:=k+n;
║c[q]:=c[k];
║write(f,' ', c[q]);
║end;
║close(f);
║end.

[Greblin]

Следующий цикл сделает сдвиг на N позиций вправо

const R = 20;

for i := 1 to N do
  begin
  buf := a[R];
  for k := R downto 2 do
    a[k] := a[k-1];
  a[1] := buf;
  end;

Сдвиг влево сделайте по аналогии

P.S. В следующий раз используйте тег [CODE] вместо того, чтобы в каждой строчке писать ||

[MPAK92]

buf := a[R];
for k := R downto 2 do

вот баф и даунту нельзя, типо этого ещё не знаем))

[Greblin]

buf - это переменная, Вы типо не знаете переменные?
Ну перепишите

for k := R downto 2 do
  a[k] := a[k-1];

на

k := R;
while k >= 2 do begin
  a[k] := a[k-1];
  k := k - 1;
end;

[ai\ekcah^p]

еще так можно

program zad;
uses crt;
var mas1,mas2:array[0..10]of integer;
    n,i,j:Integer;
begin
 clrscr;
 randomize;
 writeln('исходный массив');
 for i:=0 to 10 do
  begin
   mas1[i]:=random(90)-10;
   mas2[i]:=mas1[i];
   write(mas1[i],'   ');
  end;
 writeln;
 writeln('    насколько сдвинуть?');
 write('сдвиг вправо(+),влево(-) -> ');
 readln(n);
 n:=n mod 11;
 if n<>0 then
  begin
  textcolor(5);
  writeln('преобразованный массив');
   for i:=0 to 10 do
    begin
     j:=i+n;
     if j>10 then dec(j,11)
     else if j<0 then inc(j,11);
     mas1[i]:=mas2[j];
     write(mas1[i],'   ');
    end;
    writeln;
  end
  else writeln(' ненасколько ');
  writeln('если помог , нажмите на весы слева ');
    readln;
end.