Using System;
class Program
{
static void Main(string[] args)
{
int N = int.Parse(Console.ReadLine());
double sum = 0;
for (int i = 1; i <= N; i++)
sum += 1.0 / i;
Console.WriteLine(sum);
}
<span>}</span>
Const
n = 20;
var
a: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(19999) - 9999;
Write(a[i]:6);
end;
Writeln;
i := 1;
flag := False;
repeat
flag := (sign(a[i]) = sign(a[i + 1]));
i := i + 1
until flag or (i > n);
if flag then Writeln('Есть пара соседних элементов с одним знаком')
else Writeln('Нет пар соседних элементов с одним знаком')
end.
<u>Тестовое решение:</u>
Элементы массива
2440 -2414 -3192 -6912 -8537 7364 2869 -2505 8875 2662 401 7398 2213 8804 2039 1485 4213 8359 -2410 -5844
Есть пара соседних элементов с одним знаком
<span>C:\, school, <span>physics, school, math, notes.</span></span>
<span>Пример реализации на Excel:</span>
=IF(C6=1;D6*C$2;IF(C6=2;D6*D$2;D6*E$2))
<span>Формулы защищены без пароля, чтобы случайно не внести
погрешности.</span>