Модули Опции

[KATYSHA]

Помогите пожалуйста написать эту программу при помощи модулей:
дан вектор В вещественных чисел.Получить новый вектор,записав сначала элементы,расположенные после максимального элемента, а затем компоненты, расположенные до максимального элемента.

[volvo]

KATYSHA,
обычно сначала программа пишется и отлаживается как обычная программа с процедурами/функциями, а потом эти самые процедуры переносятся в модуль... Так что сначала напиши и отладь обычную программу, а потом уже берись за модуль

[KATYSHA]

KATYSHA,
обычно сначала программа пишется и отлаживается как обычная программа с процедурами/функциями, а потом эти самые процедуры переносятся в модуль... Так что сначала напиши и отладь обычную программу, а потом уже берись за модуль :yes2:

Ну сама программа у меня такая:

uses crt;
const nn=20;
Type  TVector=Array[1..nn] of Real;
Var  a,b,c:TVector;
     e,w,i,k,n,m:Byte;
     max:Real;
       begin
          ClrScr;
          repeat
          write('vveditekolichvo elementov (ne bolee 20) n=');
          readln(n);
            until n<=20;
            writeln('vvedite elementi massiva');
       for i:=1 to n do
          begin
            write('a[',i,']=');
            readln(a[i]);
          end;

  max:=a[1];
  m:=1;
  for i:=2 to n do
     if a[i]>max
      then
        begin
           m:=i;
           max:=a[m];
        end;
  Writeln('naib-i element vectora a[',m,']=',max:0:3);


             i:=0;
             for k:=m+1 to n do
                 begin
                    i:=i+1;
                    c[i]:=a[k];
                 end;

  c[i+1]:=a[m];
  i:=i+1;
         for w:=1 to m do
              begin
                  i:=i+1;
                  c[i]:=a[w];
              end;
  writeln('novii vector:');
  for i:=1 to n do
    writeln('a[',i,']=',c[i]:1:3);
  readln;
end.