Одномерный массив из 7 элементов заполнить случайным образом числами от 1 до 15.преобразовать массив таким образом, чтобы каждому элементу присваивалось значение предыдущего, при этом первому элементу должно присвоиться значение последнего элемента таблицы. вывести на экран монитора первоначальный и преобразованный массивы в столбик(столбики должны быть расположены рядом

Var   a,b: array[1..7]of integer;   i: integer; begin for i: =1 to 7 do  a[i]: =random(15)+1; b[1]: =a[7];     for i: =2 to 7 do  b[i]: =a[i-1]; for i: =1 to 7 do    writeln(a[i]: 4,b[i]: 4); end.  

program pryam;

var y1, y2, y3, x1, x2 : real;

begin

  writeln ('введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

end.

Писал похожую программу , мб пригодитьсяvar  cs1,cs2,res,change: integer;   td: string;   function fromdec(n,r: longint): string;   var  s: string;   const  digit: string[16]='0123456789abcdef';   begin  s: ='';   repeat  s: =digit[(n mod r)+1]+s;   n: =n div r;   until n=0;   fromdec: =s;   end;   function todec(n: string; r: longint): longint;   var  m,i: longint;   const  digit: string[16]='0123456789abcdef';   begin  m: =0;   while n[1]='0' do  delete(n,1,1);   for i: =1 to length(n) do  m: =m*r+pos(n,digit)-1;   todec: =m;   end;   begin  writeln('введите из какой сc: ');   repeat  readln(cs1);   until  (cs1> =2) and (cs1< =36);   writeln('введите число в соответствии с cc: ');   readln(td);   writeln('введите в какую cc: ');   repeat  readln(cs2);   until  (cs2> =2) and (cs2< =36);   writeln('перевод из ',cs1,' cc --> ',cs2,' cc: ');   writeln(fromdec(todec(td,cs1),cs2));   end.