// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(20,-10,19);
a.Println(','); // 1
var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2
Writeln('Количество положительных элементов ',
a.Where(x->x>0).Count); // 3
for var i:=0 to 19 do
if a[i]<0 then a[i]:=0;
Writeln('Массив А после замены отрицательных'); a.Println(','); //4
Writeln('Сумма положительных элементов ',
a.Where(x->x>0).Sum) // 5
end.
<u><em>Тестовое решение:</em></u>
14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8
Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1
Количество положительных элементов 13
Массив А после замены отрицательных
14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0
Сумма положительных элементов 112
1 МБ = 1*1024*1024*8 = 2¹⁰*2¹⁰*2³ бит = 8388608 бит ( или 2²³ бит)
4096 бит = 4096/8/1024 = 2¹²/2³/2¹⁰ = 0,5 КБ (или 2⁻¹ КБ)
2,5 ГБ = 2,5*2¹⁰*2¹⁰=2,5*1024*1024 = 2621440 КБ (или 2,5*2²⁰ КБ)
32 ГБ = 32*1024*1024*1024 = 2⁵*2*2¹⁰*2¹⁰*2¹⁰ = 34359738368 байт (или 2³⁵ байт)
( ax + b ) : ( cx + d ) = 0
Сводим уравнение к системе:
{ ax + b = 0
{ cx + d ≠ 0
{ ax = -b
{ cx ≠ -d
Code:
def func():
a = int(input('a = '))
b = int(input('b = '))
c = int(input('c = '))
d = int(input('d = '))
if (c and d) == 0:
print('NO')
elif (a and b == 0):
print('INF')
elif a == 0:
print('NO')
elif c == 0:
print(-b / a)
elif b / a == d / c:
print('NO')
else:
print(-b / a)
func()