Ввести 10 случайных чисел в диапазоне от 0 до 80 . найти колво нечетных чисел

Впрограмме генерируются только убывающие последовательности (a[i]: =-i+random()+20; ). можно при желании массив вводить с клавиатуры. const n=15; var a: array[1..n] of real; i: integer; b: boolean; begin randomize; for i: =1 to n do begin   a[i]: =-i+random()+20;   write(a[i]: 5: 2,' ');   end; writeln; b: =true; for i: =1 to n-1 do   if a[i+1]> =a[i] then b: =false; if b   then    begin   writeln('последовательность убывающая');   writeln('p = ',a[n]*a[n div 2+1]: 5: 2);   end   else writeln('последовательность не убывающая') end. пример: 19.02 18.28 17.91 16.67 15.03 14.68 13.10 12.86 11.91 10.19   9.66   8.35   7.37   6.55   5.20  последовательность убывающая p = 66.86

Впоследовательности ошибка, там не 18, а 17. // pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin   var a,b,c,d: integer;   (a,b,c): =(1,1,1);   print(a,b,c);   for var i: =1 to 20 do begin       d: =a+b+c; print(d);       (a,b,c): =(b,c,d)       end;   writeln end. результат 1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329