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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.