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

Эта программа находит количество нечётных элементов массива 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).

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.