Сдвинуть массив циклически на один элемент влево - Turbo Pascal

Формулировка задачи:

Дан массив целых чисел.Сдвинуть его циклически на один элемент влево

Код к задаче: «Сдвинуть массив циклически на один элемент влево - Turbo Pascal»

textual
uses crt;
const n=10;
var a,b:array[1..n] of integer;
i,j,k,r:integer;
BEGIN
clrscr;
 
 for i:=1 to n do
  a[i]:=random(10)+3;
 
 for i:=1 to n do
  write(a[i]:4);
 writeln;
  write('На сколько хотите сдвинуть :');
  read(k);
  for i:=1 to k do
   begin
    for j:=1 to n do
     if (j=1) then
      r:=a[j]
     else
      a[j-1]:=a[j];
      a[n]:=r;
   end;
 writeln;
 writeln;
  for i:=1 to n do
   write(a[i]:4);
 
readkey;
END.

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ