Написать программы по программированию (pascal abc). обязательно решать с использованием процедур. 1. написать программу, которая циклически сдвигает массив вправо или влево на указанное число позиций. сдвиг должен быть кольцевым. 2. написать программу перевода числа x из в . запрос числа х, основания n и вывод результата в основной программе, а перевод в процедуре.

1)//вправо const   n=10; type   ty=array[1..n] of integer; var   ar: ty;   i,k: integer;   procedure push(var ar: ty); var   i,c: integer; begin   c: =ar[n];   for i: =n downto 2 do   ar[i]: =ar[i-1];   ar[1]: =c; end;   begin   randomize;   writeln('enter k: ');   readln(k);   writeln('first array: ');   for i: =1 to n do     begin;     ar[i]: =random(10);     write(ar[i]: 4);     end;   for i: =1 to k do   push(ar);   writeln;   writeln('final array: ');   for i: =1 to n do     write(ar[i]: 4); end.2)var   a,i,b,r,n: integer;   s,se: string; procedure preob(var a,b,n: integer; var se: string);   begin   repeat     b: =a mod n;     a: =a div n;     str(b,se);     s+=se;   until (a< =n-1);   end; begin readln(a); readln(n); preob(a,b,n,se); str(a,se); s+=se; for i: =1 to length(s) div 2 do begin; se: =s[i]; s[i]: =s[length(s)-i+1]; s[length(s)-i+1]: =se[1]; end; val(s,r,a); write(r); end.

Особливість в тому що ці прогами створенні для створення візуальних і казуальних ефектів, 3d сцен, модифікація, форматування та створення власних проектів. adobe after effects програма для створення візуальних ефектів та спецефектів.