Составить в Паскале массив из н-чисел. Какие числа встречаются чаще - положительные или отрицательные? ПЛИЗ,СРОЧНО,ОЧЕНЬ НАДО!
Заведи массив и проверяй его if a[I] <> 0 then s:=s+1 else s:=s-1;