Массив, помогите

[dizz3r]

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

[Arigato]

1. Ну if a[i] > c then inc(count). Естественно, все это в цикле.
2. Максимум элементарно ищется: if abs(a[i]) > abs(a[m]) then m := i. Это в цикле, до цикла m := 1. Теперь циклом от m до n считаем произведение: P := P * a[i]. Не забудь до цикла сделать P := 1.

[dizz3r]

а можно кодом, пожалуйста

[Arigato]

Нет, нельзя. Просили помочь - я помог. Код сами пишите.

[newerow1989]

const n=10;
      c=5;
var p:array[1..n] of real;
    i,j,k,im:integer;
    pr:real;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=-10+Random(20)+Random;
      Write(p[i]:2:3,'  ');
   end;
   Writeln;
   Writeln;
   k:=0;
   For i:=1 to n do
      If p[i]>c then
         Inc(k);
   Writeln(k);
   im:=1;
   For i:=2 to n do
      If Abs(p[i])>Abs(p[im]) then
         im:=i;
   pr:=1;
   For i:=im+1 to n do
      pr:=pr*p[i];
   Writeln(pr:2:3);
   im:=1;
   For i:=1 to n do
      If p[i]>0 then
      begin
         pr:=p[i];
         For j:=i downto im+1 do
            p[j]:=p[j-1];
         p[im]:=pr;
         Inc(im);
      end;
   For i:=1 to n do
      Write(p[i]:2:3,'  ');
   Writeln;
   For i:=2 to im-1 do
      For j:=1 to i-1 do
         If p[j]>p[i] then
         begin
            pr:=p[i];
            For k:=i downto j+1 do
               p[k]:=p[k-1];
            p[k]:=pr;
         end;
   For i:=im+1 to n do
      For j:=im to i-1 do
         If p[j]>p[i] then
         begin
            pr:=p[i];
            For k:=i downto j+1 do
               p[k]:=p[k-1];
            p[k]:=pr;
         end;
   For i:=1 to n do
      Write(p[i]:2:3,'  ');
   Writeln;
   Readln;
end.