вычислить сумму положительных элементов массива

[Rapira]

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

[Stilet]

Без проблем. покажи как вводишь массив.

[fedakdenis]

program SumArray;

const
  N=100;
  MAX_VAL=100;

var
  Arr:array [0..N-1] of integer;
  i,Max,MaxIndex,Sum:integer;

begin
  Randomize;
  //случайно заполняем массив
  for i:=0 to N-1 do
    Arr[i]:=Random(MAX_VAL)-50;
  //находим индекс максимального элемента
  Max:=0;
  for i:=0 to N-1 do
    if Arr[i]>Max then begin
      MaxIndex:=i;
      Max:=Arr[i];
    end;
  //вычисляем сумму положительных элементов массива,
  //расположенных до максимального элемента
  Sum:=0;
  for i:=0 to MaxIndex-1 do
    if (Arr[i]>0) then Sum:=Sum+Arr[i];
  //вывод результатата
  Write(Sum);
  readln;
end.

[fedakdenis]

Сори за невнимательность, у меня интеджеровский массив, а в задании "вещественные элементы" , но не суть, главное алгоритм.Поменять недолго.