Дан массив в котором есть положительные и отрицательные числа. Найти отдельно…

vara: array[1… 100] of integer; i,s,r: integer; beginfor i: =1 to 100 do read (a[i]); for i: =1 to 100 dobeginif a[i]<0 then r: =r+a[i] else s: =s+a[i]; end; writeln ('сумма всех положительных чисел=',s); writeln ('сумма всех отрицательных чисел=',r); readlnend. Посчитает максимум 100 чисел.