помогите плизз с задачей в паскале!

[баста]

задача с циклом: Найти отдельно суммы положительных и отрицательных элементов последовательности чисел, введенных с клавиатуры.

[Stilet]

Ну и в чем траблы: Допустим ты вводиш в переменку A число тогда:

if a<0 then sMin:=sMin+a;
if a>0 then sPlus:=sPlus+a;

Все переменки равнотипные.

[баста]

Прости а можешь поподробнееа то я в этом чайник:-)

[Манжосов Денис :)]

program Pascal;
const N = 20;
type MyArray = array [1..N] of integer;
var 
 a: MyArray;
 i: byte;
 S1, S2: integer;
begin
 for i:=1 to High(a) do
  ReadLn(a[i]);
 for i:=1 to High(a) do
 begin
   if a[i]>0 then S1 := S1 + a[i];
   if a[i]<0 then S2 := S2 + a[i];
 end;
WriteLn(S1);
Write(S2);
readLn; 
end.

[alex_fcsm]

предположим у тебя массив

for i:=1 to n do
 if a[i]>0 then mp:=mp+a[i]
   else mm:=mm+a[i];

[баста]

фига вы МОЗГИ)))спасибо вам большое!!!