Определите что делает следующая программа:

Эта программа находит количество нечётных элементов массива A.

Объяснение:

В строке A =[59, 87, 3, 16, 23, -35, 67, -26, 7, 78] задаётся массив A из 10 целых чисел.

Далее, в строке R=0 переменной R присваивается значение 0.

Затем в цикле for x in A: перебираются все элементы массива A.

В строке if x%2 == 1: проверяется, является ли текущий элемент нечётным (то есть остаток от деления на 2 равен 1).

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

1)52: 2=26(чел) любят пирож

2)26-20=6(чел) любят морож

ответ 6 чел