Алина Алина, "Программирование на Паскале) помогите пожалуйста,
Составьте программу для вычисления суммы положительных элементов массива А (18), используя модуль. (На языке Паскаль)"...

Мне кажется что вы что то пропустили из условия задачи
но в общем виде что то типа
var a : array [1..18] of integer;
i : integer;
result : integer;
begin
result :=0;
For i:=1 to 18 do
Readln (a[i]); { ввод массива a}
For i:=1 to 18 do
if a[i] > 0 then
result := result + a[i];
Writeln(result);
end.

Я не знаю Паскаль, помочь не могу