Файл во вложении. Если я правильно поняла, то каждый день просрочки начисляется пени. Если книга была больше 30 дней
<span><span /><span><span>
Имя
Возраст
Хобби
</span><span>
Оля
13
пение
</span><span>
Петя
14
баскетбол
</span><span>
Вася
13
хоккей
</span><span>
Катя
15
танцы
</span><span>
Сережа
11
футбол
</span><span>
Коля
11
<span>баскетбол
и оформить в эксель</span></span></span></span>
<span>// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
</span>
var
a:array[1..1000000] of integer;
i, n, x, y, cnt : integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Введите ', n, ' чисел');
for i:= 1 to n do read(a[i]);
Writeln('Введите промежуток от X до Y');
readln(x, y);
for i:= x to y do
if (a[i] < 0) then cnt:= cnt + 1;
Write('Отрицательных элементов: ', cnt);
end.
Это ответ не на тот вопрос, который задан, а на тот, что дан в комментарии. По правилам данного сервиса такой ответ вскоре будет удален.
F₁=1; G₁=1;
F₂=F₁-2G₁=1-2×1=1-2=-1; G₂=G₁+F₁=1+1=2;
F₃=F₂-2×G₂=-1-2×2=-1-4=-5; G₃=F₂+G₂=-1+2=1;
F₄=F₃-2×G₃=-5-2×1=-5-2=-7; G₄=F₃+G₃=-5+1=-4;
F₅=F₄-2×G₄=-7-2×(-4)=-7+8=1; G₅=F₄+G₄=-7-4=-11
G₅/F₅=-11/1=-11
Ответ: -11