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

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

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.