Решение показано во вложениях. В первом - результат, во втором - формула.
Ответ: <u>2594.4 </u>
Я считаю, что в начальный момент времени каретка находится под любой ячейкой с меткой. Предлагаю такой алгоритм: представим, что по обе стороны от массива есть по пузырьку, и они начинают двигаться навстречу друг другу. Встретятся они в средней ячейке.
Немного неказисто. и без стрелочек. а так норм.
1)ввели a,b,c,d :a=2.5;b=1;c=6;d=0.3
2)s:=(2.5+1+6+0.3)/4=9.8/4=2.45
3)вывели S
<span>a = input("a = ")
if a == bool:
print("b = 4")
else:
print(" b = -4")</span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.