кто хрень какую я то напишет бар сразу

// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,27); a.Println;
  var s:=a.Where((x,i)->i.IsEven);
  Writeln('Cумма элементов с нечетными номерами: ',s.Sum);
  Writeln('Произведение элементов с нечетными номерами: ',
      s.Aggregate(BigInteger(1),(x,y)->x*y));
end.

Пример
n= 25
13 6 18 13 14 23 7 3 24 6 6 9 14 8 4 2 14 2 14 22 9 24 19 20 27
Cумма элементов с нечетными номерами: 183
Произведение элементов с нечетными номерами: 167343326631936

#include <iostream>
using namespace std;
int main(){ 
int N,i,k,sum;    
sum=0;   
cin>>N; 
for(i=0;i<N;i++)
{   
cin>>k; 
  sum += k; 
}
cout<<sum;
return 0;}
2.
#include <iostream>
using namespace std;
int main(){   
 int N,i,k,number;   
 k=0;   
cin>>N;   
 for(i=0;i<N;i++){   
    cin>>number;     
 if(number == 0){           
 k+=1;     
  }   
 }   
 cout<<k;   
return 0;
}
3.#include <iostream>
using namespace std;
int main(){ 
  int N,i,number;   
int poz,neg,zero;   
poz = 0;    neg = 0;    zero = 0; 
   cin>>N; 
  for(i=0;i<N;i++){     
 cin>>number;     
 if(number == 0){           
 zero+=1;       
}else if(number > 0){     
      poz+=1;   
    }else{     
 neg+=1;     
 }   
 }   
cout<<"Poz: "<<poz<<endl;    cout<<"Neg: "<<neg<<endl;    cout<<"Zero: "<<zero<<endl;   
return 0;
}