Так как среднее значение 3 чисел (СРЗНАЧ(A1:A3)) равно 3, то сумма значений в этих же ячейках = 3*3=9
Значит значение ячейки A4 = 10-9 = 1
В языке Pascal тип данных string предназначен для хранения строковых величин.
Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(5).Aggregate(1.0,(a,b)->a*b).Println
end.
<u>Пример</u>
35.3 173.2 0.15 -2.62 7
-16819.50396