#include<iostream>
using namespace std;
int main()
{
int n, P = 0, O = 0, N = 0, A;
cout << "n = ", cin >> n;
for(int i = 0; i < n; i++)
{
cin >> A;
if(A > 0) P++;
else if(A < 0) O++;
else N++;
}
cout <<"Chisla > 0: " << P;
cout <<"\nChisla < 0: " << O;
cout <<"\nChisla = 0: " << N;
return 0;
}
Пример работы программы:
n = 9
1 2 3 -4 -5 -6 -7 0 0
Chisla > 0: 3
Chisla < 0: 4
Chisla = 0: 2
Если будут вопросы пиши.
var
a,b,c,d: integer;
begin
readln(a,b,c,d);
writeln(a-b-c-d) ;
end.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var a:=Arr(BigInteger(ReadInteger('x->'))); var sum:=BigInteger(a[0]);
for var i:=1 to ReadInteger('n->')-1 do begin a:=a+arr(sqr(a[i-1])); sum+=a[i]; end;
a.Println; sum.Println;
end.
Пример:
x-> 4
n-> 5
4 16 256 65536 4294967296
4295033108
1024*768*(ln(16777216)/ln(2)) бит = 18874368 бит
18874368 / 8 / 1024 = 2304 кбайт
Если это ноут. Высунь блок питания и от отрезки чтобы быть уверен в выключении. Даже если будет зависать попробуй все файлы удалить. А то комп наверное ещё не рассортировал файлы по местам. И совет. Делай не на своем компе а эмулятор(типо комп в компе\ такое сделали чтобы проверять вирусы и опасные программы при том что сам комп не пострадает от этого)
