Забыл еще объявить массив х, нужно написать array of integer.
По способу:аромат сирени,вкус лимона
По форме:телепередача,температура водуха,желтый цвет
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadlnInteger;
var a:=ReadArrInteger(n);
var k:=n div 2;
a:=(a[:k].OrderBy(t->t)+a[k:].OrderByDescending(t->t)).ToArray;
a.Println
end.
<u>Пример</u>
6
3 2 1 4 5 6
1 2 3 6 5 4
Const
n = 13;
Var
a,i,C,k:integer;
M:array[1..N] of integer;
Begin
k:=0;
Write('a = ');
ReadLn(a);
WriteLn('Введите целые числа');
For i:= 1 to n do
Read(M[i]);
For i:= 2 to n do
if M[i]-a = M[1] then k:=k+1;
WriteLn('1: k = ',k);
k:=0;
For i:= 2 to n-1 do
if (M[i-1]<M[i])and(M[i]>M[i+1]) then k:=k+1;
WriteLn('2: k = ',k);
Write('3: ');
For i:= 1 to n do
if (M[i] mod 3 = 0)and(M[i] mod 5 <> 0) then Write(M[i],' ')
End.
10;7(Я очень люблю ограничение по количеству символов)