Одномерные массивы на паскале

[Nekras]

прошу помощи в написании проги
очень буду благодарна!!!!!
Дан массив F1..F20. Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов, то заменить все положительные элементы на нули.
пишите любые размышления на эту тему!))))

[Mad_Cat]

sp:=0;
so:=0;
for i:=1 to 20 do
if a[i]>0 then sp:=sp+a[i]
else so:=so+a[i];
if abs(sp)>abs(so) then
for i:=1 to 20 do
if a[i]>0 then a[i]:=0;

[cyber_NINJA]

Uses Crt;
VAR f:array [1..20] of integer;
    i,s1,s2:integer;
BEGIN clrscr;
 s1:=0; s2:=0;
for i:=1 to 20 do
 begin
  write('F[',i,']: ');
  readln(f[i]);
 end;
writeln('---------------'); writeln;

for i:=1 to 20 do
 if f[i]<0 then s2:=s2+f[i]
  else s1:=s1+f[i];

if abs(s1) > abs(s2) then
 begin
  for i:=1 to 20 do
   if f[i]>0 then f[i]:=0;
 end;

writeln('New array:');

for i:=1 to 20 do
 writeln('F[',i,']= ',f[i]);

readkey;
END.

[Nekras]

Прога работает спасибо!!!!!!!