Если нуль возможен, то примерно так. function whatsign(a: array of integer):boolean; var find:boolean; i:integer; begin i:=min(a); find:=false; result:=false; while (not find) and (i<=max(a)) do begin find:=a[i]<>0; if find then result:=a[i]>0; i:=i+1; end; end; Функция вернёт True, если раньше положительное и False, если раньше отрицательное. Примерно так. Проверь синтаксис объявления переменных и функции.
1 нужно 48=4+8=12 1991=1+9+9+1=20 182=1+8+2=11 25431=2+5+4+3+1=15 2 нужно если число одно как например 1 7 значит ставится цифра 1 если 10 цифра 2 если 183 цифр 3 1996 цифр 4 ДАЛЬШЕ НЕЗНАЮ СОРИ