У магазині повели рекламну акцію одного з товарів. Зробіть висновок щодо ефективності цього заходу на основі даних про продаж товару протягом двох тижнів до проведення акції та двох тижнів після цього. До акції-60, 51, 61, 52, 56, 53, 68, 57, 60, 70, 72, 68, 70, 78.

Після акції - 58, 70, 64, 56, 60, 62, 70, 64, 75, 82, 65, 64, 76, 73.

Очень нужно... заранее

​

Program zic;
var a,b,c,d,e:integer;
begin
Writeln('Введите 5 чисел');
Readln(a,b,c,d,e);
if (a>0) and (b>0) and (c>0) and (d>0) and (e>0) then Write('',Ваши числа положительные) else
if a>0 and b>0 and c>0 and d>0 and e<0 then Write('',Все ваши числа положительные кроме числа e) else
if a>0 and b>0 and c>0 and d<0 and e>0 then Write('',Все ваши числа положительные кроме числа d) else
if a>0 and b>0 and c<0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа c) else
if a>0 and b<0 and c>0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа b) else
if a<0 and b>0 and c>0 and d>0 and e>0 then Write('',Все ваши числа положительные кроме числа a) else
if a>0 and b>0 and c>0 and d<0 and e<0 then Write('',Все ваши числа положительные кроме числа d и e) else
if a>0 and b>0 and c<0 and d>0 and e<0 then Write('',Все ваши числа положительные кроме числа c и e) else
Дальше просто меняеш знаки и числа.
Концовка такая
if a<0 and b<0 and c<0 and d<0 and e<0 then Write('',Все ваши числа
 отрицатильные);
end.
P.s. Все эти с<0 и т.д. поставь в скобки

Program Sum;

var
  chislo: longint; {число, введенное с клавиатуры}
  tchifra, Summa, n, p: integer;{tchifra - правая цифра}

begin
  Write('введи число: ');
  Readln(chislo);
  Summa := 0;n := 0;p := 1;
  repeat
    tchifra := chislo mod 10; {получили правую цифру}
    Inc(n);
    if tchifra > 0 then p := p * tchifra;
    if tchifra < 3 then Summa := Summa + tchifra;
    chislo := chislo div 10{оставили от числа левую часть}
  until chislo = 0; {выход из цикла, если нет больше цифр}
  Writeln('Количество цифр в числе- ', n);
  Writeln('Сумма цифр, меньших 3- ', Summa);
  Writeln('Произведение цифр, больших нуля- ', p);
  Readln
end.

Тестовое решение:
введи число: 10354
Количество цифр в числе- 5
Сумма цифр, меньших 3- 1
Произведение цифр, больших нуля- 60