//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int a,n=0;
int k0=0;
int kp=0;
int kot=0;
cin>>n;
for(int i=0;i<n;i++){
cin>>a;
if(a==0)k0++;
if(a>0)kp++;
if(a<0)kot++;}
cout<<k0<<endl<<kp<<endl<<kot;
cin.get();
cin.get();
return 0;
}
Пример ввода:
4
0
-1
1
2
Пример вывода:
1
2
1
Var i,t,j, n:integer; b:array[1..20] of integer;s:string;begin write('Введите число n = '); readln(n); repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; writeln(b); for i:= 1 to i do begin for j:= 2 to i do begin if b[j-1] < b[j] then begin t:=b[j-1]; b[j-1]:=b[j]; b[j]:=t; end; end; end; writeln(b); for t:=1 to i do s:= s + inttostr(b[t]); write(s); end.