Программа инвертирования компонентов вектора не работает - Turbo Pascal

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

const n=20;
 var V: array[1..n] of real;
 begin
 for i:= 1 to n do
   begin
    write('dati x[',x,']=');
     readln(x[i]);
     end;
      for i:=1 to n do
  writeln(x[i]); 
   for i:=1 to n do div 2 do 
       begin
         aux:=x[i];
          x[i]:=x [n+1-i];
           x[n+1-i]:=aux;
        end;       
      readln;
      end.
Пишет Встречно 'div', а ожидался оператор (11 строка) Кто может помочь буду благодарен. P.S Что я должен был сделать линейный массив V[1..], n<=20 нужно создать рекурсивную процедуру которая будет инвертирвать компоненты вектора.

Код к задаче: «Программа инвертирования компонентов вектора не работает - Turbo Pascal»

textual
uses
  SysUtils;
const n=20;
 var
 aux: Real;
 i:Integer;
 x: array[1..n] of real;
 begin
 for i:= 1 to n do
   begin
    write('dati x[',i,']=');
     readln(x[i]);
     end;
      for i:=1 to n do
  write(x[i]:3:1);
  writeln;
   for i:=1 to 10 do // Здесь вместо 10 можно записать любую переменную, равную n/2 
       begin
         aux:=x[i];
          x[i]:=x [n+1-i];
           x[n+1-i]:=aux;
        end;
   for i:=1 to n do
  write(' ', x[i]:3:0);
      readln;
      end.

8   голосов, оценка 3.875 из 5


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