На одномерные массивы: В последовательности вещественных чисел. Определить образуют ли они убывающую последовательность. Если да,найти произведение последнего и центрального элементов . Написать Код Pascal 

В программе генерируются только убывающие последовательности (a[i]:=-i+random()+20;). Можно при желании массив вводить с клавиатуры.const n=15;var a:array[1..n] of real;i:integer; b:boolean;beginRandomize;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