Промежуточный итог входит <span>в список или базу данных. Обычно проще создать список с </span>промежуточными<span> итогами, используя команду </span>Итоги<span> в меню Данные. Но если список с </span>промежуточными<span> итогами уже создан, его можно модифицировать, редактируя формулу с функцией </span>
const
pi = 3.18;
k = 2.7;
var
f, x: real;
begin
write('x = ');
read(x);
if x < -pi / 2 then writeln('f(x) = ', (2 * sqr(sin(x / 2)) / x));
if x >= -pi / 2 then writeln('f(x) = ', exp(sqr(x)) + cos(2 * k * x));
<span>end.</span>
Программа на языке Паскаль.
const N=30;
var i, s0, k, a: integer;
b: array [1..N] of integer;
begin
readln(a);
s0:=0;
k:=0;
randomize;
for i:=1 to N do
begin b[i]:=random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}
if (b[i]<0) then s0:=s0+b[i];
if (b[i]>0) and (b[i]<=a) then inc(k);
end;
if (s0<>0) then writeln(s0, ' - сумма отрицательных чисел')
else writeln('отрицательных чисел нет');
if (k<>0) then writeln(k, ' - количество положительных чисел, не превосходящих числа А')
else writeln('положительных чисел не превосходящих числа А, нет');
readln;
end.