<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := SeqRandom(10000, -10, 10).Where(t -> t.IsEven)
.Take(15).ToArray;
a.Println;
a.Where(t -> t < 0).Count.Println;
a.Transform(t -> t < 0 ? 0 : t);
a.Println
end.
<h2>Пример</h2><h3>-6 10 2 4 -2 -4 2 2 10 -10 -6 -8 -8 2 -6</h3><h3>8 </h3><h3>0 10 2 4 0 0 2 2 10 0 0 0 0 2 0</h3>
2-б
3-а
ббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббббб
32КБ=262144 Бит.
262144/512=512 секунд
512*5=2560 копеек.
262144/128=2048 секунд
2048*5=10240 копеек
10240-2560=7680
#include <iostream>
#include <math.h>
using namespace std;
int main(){
double x, y;
cin>>x;
if (x<3) y=log(abs(2-x));
else if (x>=3&&x<5) y=x/(x-2);
else y=sqrt(x-4);
cout<<y;
}