Мне кажется что вы что то пропустили из условия задачи
но в общем виде что то типа
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.

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