СОСТАВЬТЕ ТАБЛИЦУ ИСТИННОСТИ ОЧЕНЬ

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Where((x,i)->i.IsOdd).Println; // для №1
  Writeln('Сумма =',a.Where((x,i)->i.IsEven).Sum); // для №2
end.

Пример
n= 13
-2 33 -49 49 50 -48 -11 27 47 10 17 22 38
33 49 -48 27 10 22
Сумма =90

№3
begin
  var a:=ArrRandom(15,-99,99); a.Println;
  a[a.IndexMax]:=0; a.Println
end.

Пример
34 -62 -42 98 44 -56 9 -69 85 55 -86 -32 83 -94 -19
34 -62 -42 0 44 -56 9 -69 85 55 -86 -32 83 -94 -19

#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;
}