Var x,y:real; i:integer;
begin
write('x = ');
readln(x);
y:=0;
if x>0
then for i:=1 to 10 do y:=y+1/((2*i-1)*x)
else if x<0 then for i:=1 to 10 do y:=y+1/(2*i*x);
writeln('y = ',y:5:3);
end.
Пример:
x = -2
y = -0.732
//PascalABC.Net 3.0, сборка 1064
const
n=20;
var
a:array[1..n] of integer;
i,imax,imin:integer;
s:longint;
begin
Randomize;
Writeln('Исходный ряд значений');
imax:=1; imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25; Write(a[i],' ');
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i
end;
Writeln;
if imax>imin then
Writeln('Максимальный элемент встретился позже минимального')
else begin
s:=0;
for i:=imax+1 to imin-1 do s:=s+a[i];
Writeln('Сумма элементов между максимальным и минимальным значением ',s)
end
end.
<em><u>Тестовое решение:</u></em>
Исходный ряд значений
10 -3 9 5 20 10 6 2 -19 -19 6 -24 -7 -1 23 11 -8 -16 -14 -25
Сумма элементов между максимальным и минимальным значением -27
NOT ((А OR B) AND C)
Необходимо добрать 20 символов в ответе.
Разрешение составляет 1280 на 1024. Поясняю, если перемножить эти числа то получится ваше разрешение