Приемы для ввода индексов: Верхний и нижний
потомучто график деления у 6 больше
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов с нечетными индексами равна ',
Range(0,9,2).Select(i->a.ElementAt(i)).Sum)
end.
<u><em>Тестовое решение:</em></u>
11 -3 3 8 8 14 8 12 15 2
Сумма элементов с нечетными индексами равна 45
Var x:integer; y:real;
Begin
write('x=');
readln(x);
y:=((x*x)-(7*x)+10)/((x*x)-(8*x)+12);
writeln('y=',y);
End.
Program TRAPECIYA;
var x1, x2 ,y1, y2, P, S:real;
begin
writeln("Введите значение верхнего основания");
readln(y1);
writeln("Введите значение нижнего основания");
<span> readln(y2);
</span> writeln("Введите значение левой грани");
<span> readln(x1);
</span> writeln("Введите значение правой стороны");
<span> readln(x2);
</span>P:=y1+y2+x1+x2;
S:=((y1+y2)/2)*sqrt(sqr(x1)-(sqr(sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2-y1)))
writeln(P);
writeln(S);
end