Вставить нужные числа 2*879 x * =**9**6

29879x4=119516 как-то так

решение

pascal

выделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

const

  n = 15; {массив из 15 элементов, можно менять}

var

  a : array [1..n] of integer;

  i, k, ko, _a : integer;

  s : real;

begin

  s : = 0;

  k : = 0;

  ko : = 0;

  {заполняем и выводим массив, считаем сумму элементов}

  writeln('массив: ');

  randomize;  

  write('введите a: ');

  readln(_a);

  for i : = 1 to n do

  begin

    a[i] : = random(100) - 50; {создаем i-ый }

    write(a[i], ' '); { }

    {если отрицательный суммируем, считаем кол-во}

    if a[i] < 0 then

    begin

      s : = s + a[i];

      inc(ko)

    end;

    {если > a и на четном месте количество +1}

    if (a[i] > _a) and (i mod 2 = 0) then inc(k)

  end;

  writeln; {строку перевели}

  writeln('среднее арифметическое отрицательных: ', (s/ko): 0: 6);

  writeln('кол-во больших a на нечетных местах: ', k)

end.