Задача на массивы.

[Хайд]

Прошу промочь составить програмный код к следующей программе:
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) максимальный по модулю элемент массива;
2) сумму элементов массива, расположенных между первым и вторым положительными элементами.
Преобразовать массив таким образом, чтобы элементы, равные нулю, располагались после всех остальных.

[iBuTTHead]

Помочь составить?? хм

РАс так то вот кучочек для превой, собственно само нахождение.

max:=abs(mass[1]);
for i:=2 to n do
     if max<abs(mass[i]) then
           max:=abs(mass[i]);

на вторую задачу пример приведите пожалуйста.

третья задача:

i:=0;
repeat
i:=i+1;
if mass[i]=0 then
   begin
       mass[i]:=mass[n];
       mass[n]:=0;
       i:=i-1;
       n:=n-1
   end;
until i=n

Как то так

[Анастасииия]

это задание из книжки Павловской?

 program lab5;
 uses crt;
 const n=10;
 var a:array [1..n] of real;
    x,y,  i, j, nmax : integer;
      sum,  buf :real;
     max :real;
    { buf: integer;  }
 begin
  writeln(' mmm ');
  for i:=1 to n do readln(a[i]);
  max:=abs(a[1]);
         for i:=1 to n do
            if abs(a[i])>max then max:=abs(a[i]);
writeln('maximalniy po modulu element: ',max:7:3);
sum:=0;
   for i:=n downto 1 do
         begin
            if a[i]>=0 then x:=i;
         end;
        for i:=n downto 1+x do begin
           if a[i]>=0 then y:=i;
        end;
    for i:=x+1 to y-1 do begin
     sum:=sum+a[i];
      end;
writeln('summa',sum:7:3);
{ for i:=1 to n do read(a[i]);}
  for i:=1 to n-1 do begin
  nmax:=i;
  for j:=i+1 to n do
    if abs(a[j])>abs(a[nmax]) then nmax:=j;
  buf:=(a[i]);
  a[i]:=(a[nmax]);
  a[nmax]:=(buf);
 end;
writeln('noviy massiv: ');
for i:=1 to n do write(a[i]:7:1);
readkey;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Хайд]

Огромное вам спасибо за помощь! задание из лабараторной работы так что из какой книги сказать немогу)