В массиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. Определить день, когда фирма выручила наибольшую общую стоимость.

В алгебре логики применяются только три операции: конъюнкция (или логическое умножение, обозначается обычно ∧), дизъюнкция (или логическое сложение, обозначается обычно ∨) и инверсия (отрицание, обозначается чаще ¬). Так же, в алгебре логики, в отличие от математики, может быть получено только  два результата выражения, каким бы оно не было - это 1 (истина, true) или 0 (ложь, false). Так же, именно с этими символами проводят операции.
Алгебраических операций куда больше: умножение, деление, сложение, вычитание, возведение в степень, корень N-ой степени, синусы, косинусы... Я, конечно, не всё перечислил, но разница ощутима. И числа, над которыми проводятся операции, тоже разнообразны, т.к. операции в математике проводятся над числами из десятичной системы счисления. Следовательно, результат операций в математике может получиться любой (в пределах десятичной системы счисления).

Первая задача:
var
  i, c, sum: shortint;
  sr: real;
  m: array[1..20] of shortint;

begin
  sum := 0;
  readln(c);
  for i := 1 to c do
  begin
    readln(m[i]);
    sum := sum + m[i];
  end;
  sr := sum / c;
  sr := round(sr * 100) / 100;  //если округлять не нужно, удали эту строчку
  writeln('Среднее арифметическое: ', sr);
end.

Вторая задача:
var
  i, c: shortint;
  p: integer;
  m: array[1..20] of shortint;

begin
  p := 1;
  readln(c);
  for i := 1 to c do readln(m[i]);
  for i := 1 to c do p := abs(p * (m[i]));
  writeln('Произведение всех модулей массива: ', p)
end.