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

[only_win]

Решите плиз такую задачу:
В одном массиве, состоящем из n вещественных чисел, вычислить сумму отрицательных элементов в массиве.
Надо делать с модулем. И кажется надо, что-то обязательно сделать в основной праграмме.

[А. Долматов]

это модуль. в нем твоя функция к вычислению суммы элементов.
unit Modul1;
var a:array[1..10] of real;
i:byte;
sum:real;
function summaelementov(d:array[1..10] of integer):real;
begin
function summaelementov(d:array[1..10] of integer):real;
begin
sum:=0;
for i:=1 to 10 do
begin
if d[i]<0 then sum:=sum+d[i];
summaelemntov:=sum;
end;
end;
end.

в программе не забудь указать USES Modul1

[only_win]

Сообщение от А. Долматов

это модуль. в нем твоя функция к вычислению суммы элементов.
unit Modul1;
var a:array[1..10] of real;
i:byte;
sum:real;
function summaelementov(d:array[1..10] of integer):real;
begin
function summaelementov(d:array[1..10] of integer):real;
begin
sum:=0;
for i:=1 to 10 do
begin
if d[i]<0 then sum:=sum+d[i];
summaelemntov:=sum;
end;
end;
end.

в программе не забудь указать USES Modul1

спасибО! огромноЕ!