нет
например число 546
если средняя цифра то это 4 а крайние это 5 и 6 4<30~~~
если среднее арифм. то это 5+4+6/2 т.е. 15/2 = 7.5 и опять же 7.5<30
//PascalABC.Net 3.2
procedure swap (var a1, a2: integer);
begin
var promt:=a1;
a1:=a2;
a2:=promt;
end;
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger ('Размерность : '));
var i:=-1;
while (i+2)<length (a) do
begin
i+=2;
swap (a[i], a[i-1]);
end;
a.Print;
end.
Если по программе 1-4 класс, то ответ курсор. Буква Р- 18 по счету
<u>// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses GraphABC;
begin
var (w,h):=(800,600); // размер графического окна
SetWindowSize(w,h);
var (xc,yc):=(w div 2,h div 2); // координаты центра
var R:=h-yc-20; // радиус описанной окружности
var n:=ReadInteger('Количество сторон n =');
Window.Clear;
Pen.Width:=5;
Pen.Color:=clRed;
var P:=new Point[n];
for var i:=0 to n-1 do begin
var arg:=2*Pi*i/n-Pi/2;
P[i].X:=Trunc(xc+R*cos(arg));
P[i].Y:=Trunc(yc+R*sin(arg))
end;
DrawPolygon(P);
end.