по информатике по во вложении очень быстро и кратко , !

Program z1; 
Var i,n,a,b,c:integer;     
 m: array [1..1000] of integer;
Begin 
write('Введите кол-во чисел - '); 
readln(n);   
randomize;   
a:=0;   b:=0;   c:=0; 
 for i:=1 to n do 
begin   
m[i]:=random(100)-50;   
 write (m[i],' ');  end;    for i:=1 to n do    if (m[i]=0) then a:=a+1;      for i:=1 to n do    if (m[i]>0) then b:=b+1;      for i:=1 to n do    if (m[i]<0) then c:=c+1;  writeln;  writeln ('Кол-во нулей - ',a);  writeln ('Кол-во положительных чисел - ',b);  writeln ('Кол-во отрицательных чисел - ',c);End.

#include <string>
#include <iostream>
using namespace std;

int main(){
    string s;
    cin>>s;
    if(s[0]!='1'){
                  cout<<"No";
                  cin.get();
                  cin.get();
                  return 0;
                  }
    for(int i=1;i<s.length();i++){
            if((s[i]!='1') && (s[i]!='0')){
                           cout<<"No";
                           cin.get();
                           cin.get();
                           return 0;
                           }
                           }
    cout<<"Yes";
    cin.get();
    cin.get();
    return 0;
}