Дан массив, состоящий из n элементов, и числа a и b. Вычислить.

Y=П (от 1 до n) a (в степени xi) - b (в степени xi)

Program ABC;

var

X:array [1 ... 27] of integer;

i, n, a, b:integer;

y:real;

Begin

y:=1;

write ('введите количество элементов массива n = ') ;

readln (n) ;

write ('введите число a = ') ;

readln (a) ;

write ('введите число b = ') ;

readln (b) ; For i: = 1 to n do

Begin

X[i]: = - 10+random (25) ;

write (X[i]:4) ;

y:=y * (exp (a * (X[i])) - exp (b * (X[i]))) ;

end;

writeln;

write ('Y = ', y) ;

End.