Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program nn;
uses crt;
var a: array [1..20] of real;
t: real;
i,n,min: integer;
begin
{ввод последовательности, это самостоятельно}
min : = 1;
for i : = 1 to 20 do
if a[i] < a[min] then
min : = i;
end;
t : = a[min];
a[min] : = a[20-n];
a[20-n] : = t;
end.
var
x,y: real;
i,n: integer;
n: =1;
x: =1;
y: =1;
for i: =1 to 5 do
n: =n*i;
x: =-1.5*x;
y: =y*(x+1/n);
writeln(y: 15: 5);
Популярные вопросы