Нужно создать таблицу, содержащую сведения о наличии товара в магазине(в exlec) а) Определить количество проданного товара за месяц, прибыль от продажи товара за месяц; используя логическую функцию дать характеристику товара (в зависимости от среднего количества про-данного товара – если продано более среднего, то значит товар пользуется спросом);

б) отсортировать таблицу по алфавиту (в зависимости от названия товара) и с автофильтра вывести наименования товаров, которые пользуются спросом.

а) var a:array[1..3] of integer;

          s, i: integer;

  begin

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=0

  for i:=1 to 3 do

  begin

  if a[i] mod 2=0 then

  s:=s+a[i]

  end;

  writeln(s);

  readln();

end.

б) var a:array[1..3] of integer;

          s, i: integer;

  begin

  for i:=1 to 3 do

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=0

  for i:=1 to 3 do

  begin

  if a[i]<0 then

  write(a[i], ' ')

  end;

  readln();

end.

в) var a:array[1..3] of integer;

          s, i: integer;

  begin

  for i:=1 to 3 do

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=1

  for i:=1 to 3 do

  begin

  if a[i] mod 3=0 then

  s:=a[i]*a[i];

  end;

  writeln(s);

  readln();

end.

Чтобы излишне не терять точность и не тратить лишнее время на вычисления, выведем рекуррентную формулу.

В задании не сказано точно, как определять условие окончания суммирования. Примем, что суммирование завершается, если очередной член ряда не может изменить накопленную сумму больше, чем на ε, т.е.
|aₓ| ≤ ε.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (ai1,eps,s,i):=(3/2,0.001,3/2,2);
  while true do begin
    var a:=3/(4*i-2)*ai1;
    if Abs(a)>eps then begin i+=1; s+=a; ai1:=a end
    else Break
    end;
  Writeln('S = ',s:0:3)
end.

Результат
S = 2.532