Задача на массив в Turbo Pascal.

[The Mixtep]

Дан массив A(n), разработать программу, которая позволяет выполнить с массивом следующие действия:

• Нахождение количества элементов массива равных 0.
• Нахождение суммы элементов массива, расположенных после минимального элемента.
• Нахождение количества элементов меньших среднего арифметического значения элементов массива.
• Расположить массив в порядке убывания.

[The Mixtep]

Помогите пожалуйста решить очень срочно надо((

[Xardas]

Зачем создавать темы в разных разделах? Сейчас придет модератор, и они будут закрыты.

[Sciv]

const N=8;

type TMas: array [1..N] of real;

function SumMin(m: TMas): real;
var i: integer;
    min: integer;    
begin
  min:=1;
  for i:=2 to N do 
    if m[i]<m[min] then min:=1; 
  summin:=0;
  for i:=min to N do summin:=summin+m[i];
end;

function sred(m: TMas): real;
var i: integer;
    temp: real;
begin
  temp:=m[1];
  for i:=2 to N do temp:=temp+m[i];
  sred:=temp/N;
end;

var sum: real;
    count,count1: integer;
    i: integer;
    a: TMas;
begin
  For i:=1 to N do ReadLn(a[i]);
  count:=0;
  count1:=0;
  sum:=SumMin(a);
  for i:=1 to N do begin
    if a[i]=0 then inc(count);
    if a[i]<sred(a) then inc(count1);
  end;
  WriteLn('Равно нулю=',count);
  WriteLn('Сумма=',sum:2:2);
  WriteLn('Меньше среднего=',count1);
end;

Тут первые три задания. Четвертое не поленитесь, сами найдите, примеров на форуме полно

Зачем создавать темы в разных разделах? Сейчас придет модератор, и они будут закрыты.

Тьфу ты... то-то смотрю - задание какое-то знакомое...