Решить , надо♡♡♡ желательно с полным решением)

  Только решу задачку - Интер вырубается

А получилось вот что:

uses Crt;
const N=30;
type Mas=array [1..N]  of integer;
 var i, j , SumPol, SumOtr: integer;
     A: Mas;
begin
 ClrScr;
 SumPol:=0;
 SumOtr:=0;
  WriteLn(' Sposob 1:');
  WriteLn;
 for i:=1 to N do
     begin
          A[i]:=-10+random(21);
          Write (A[i]:4);
     end;
 WriteLn;
 for i:=1 to N do
 begin
       if (A[i]>0) then SumPol:=SumPol+A[i];
       if (A[i]<0) then SumOtr:=SumOtr+A[i];
 end;
 WriteLn(' SumPol =', SumPol);
 WriteLn(' SumOtr =', SumOtr);
 WriteLn;
 WriteLn (' Sposob 2:') ;
 SumPol:=0;
 SumOtr:=0;
 i:=1;
 repeat
   if (A[i]>0) then SumPol:=SumPol+A[i];
   if (A[i]<0) then SumOtr:=SumOtr+A[i];
   i:=i+1;
 until i>30;
 WriteLn(' SumPol =', SumPol);
 WriteLn(' SumOtr =', SumOtr);
 ReadLn;
end.

1)#include <iostream>

using namespace std;

int main() {

 int a=1,b=1,c=0,d=1;

 int otvet=a*(-1)+b^c-d;

 cout<<otvet;

}

2)#include <iostream>

using namespace std;

int main() {

 int a = 1, b = 1, c = 1, d = 1;

 int otvet=a*(-1)+b^c-d;

 cout<<otvet;

}

3)#include <iostream>

using namespace std;

int main() {

 int a = 0, b = 0, c = 0, d = 0;

 int otvet=a*(-1)+b^c-d;

 cout<<otvet;

}

4)#include <iostream>

using namespace std;

int main() {

 int a = 0, b = 1, c = 1, d = 0;

 int otvet=-(a+b^c+(-b))+a^d;

 cout<<otvet;

}

5)#include <iostream>

using namespace std;

int main() {

 int a = 1, b = 0, c = 0, d = 1;

 int otvet=-(a+b^c+(-b))+a^d;

 cout<<otvet;

}

6)#include <iostream>

using namespace std;

int main() {

 int a = 1, b = 1, c = 1, d = 1;

 int otvet=-(a+b^c+(-b))+a^d;

 cout<<otvet;

}

7)#include <iostream>

using namespace std;

int main() {

 int a = 0, b = 0, c = 0, d = 0;

 int otvet=-(a+b^c+(-b))+a^d;

 cout<<otvet;

}

Объяснение: