Var
A,B:integer;
Begin
ReadLn(A);
B:=(A div 100)+((A div 10) mod 10);
A:=((A div 10) mod 10)+(A mod 10);
if A>=B then Write(A,B)
else if B>=A then Write(B,A)
End.
<span><span><em>1) </em></span><em>Break</em></span><em />
<span><em>2) Esc</em><span>
<em>
3) Enter</em><span>
<em>
4) </em><span><em>Page Down</em></span></span></span></span>
А какие элементы то? Последовательность разной может быть. Например 1, 2, 3, 4, 5, 6 - тут сумма элементов с четными индексами четная. 6, 5, 4, 3, 2, 1 - тут нечетная
===== PascalABC.NET =====
begin
var n := ReadInteger('Сколько точек будете вводить?');
for var i := 1 to n do
begin
var x := ReadReal;
Writeln(x:10:5, Sin(Sqr(x) + 1.67 * Pi):20:15)
end
end.
Чтобы получить вид таблицы, после ввода числа точек нужно в следующей строке вводить весь набор х сразу и через пробел