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

В программе генерируются только убывающие последовательности (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