Экзамен 13, а у меня 2 долга (я почти не шарю)

[2Fed]

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

[alex_fcsm]

const n=100;
var i,j:integer;
    a:array[1..n] of integer;

begin
 for i:=1 to n do
  a[i]:=random(10);
  j:=0;
 for i:=1 to n do
  if a[i]=0 then inc(j);
 writeln(j);
end.

[alex_fcsm]

const n=10;
var i,j,sum:integer;
    a:array[1..n] of integer;

begin
 for i:=1 to n do
  begin
   a[i]:=random(10);
   write(a[i],' ');
  end;
  writeln;
  j:=1;
 for i:=2 to n do
  if a[i]<a[j] then j:=i;
  sum:=0;
 for i:=j+1 to n do
   sum:=sum+a[i];
 writeln(sum);
end.

Сортировка

const n=10;
var i,j,temp:integer;
    a:array[1..n] of integer;

begin
 for i:=1 to n do
  begin
   a[i]:=random(10)-random(10);
   write(a[i],' ');
  end;
  writeln;
  for i:=2 to n do
    for j:=n downto i do
      if abs(a[j-1])>abs(a[j]) then
        begin
          Temp:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=temp;
        end;
for i:=1 to n do
 write(a[i],' ');
end.

[2Fed]

Респект и уважуха СПС)))