1. Які стандартні папки існують у поштовій скриньці на поштовому сервері?​

{$APPTYPE CONSOLE}
Const
   n = 13;
Type
   Mass = array[1..n] of integer;

Procedure BbIBOD(Var A:Mass);
Var
   i:integer;
Begin
For i:= 1 to n do
    Write(' ',A[i])
End;

Function SWP(Var A:Mass; c:real):integer;
Var
   i,j:integer;
Begin
For i:= 1 to n do
   if (A[i] < 0)and(A[i] <= c) then j:=i;
if j <> 0 then
  Begin
  WriteLn('Искомый элемент: ',A[j],'[',j,']');
  A[j]:=Sqr(A[j]);
  i:=A[n-1];
  A[n-1]:=A[j];
  A[j]:=i;
  Write('Новый массив:');
  BbIBOD(A);
  End
else Write('В массиве нет отрицательных элементов')
End;

Var
   A:Mass;
   i:integer;
   c:real;
Begin
Randomize;
Write('Исходный массив(',n,'):');
For i:= 1 to n do
   A[i]:=random(2*n+1)-n;
BbIBOD(A);
WriteLn;
Write('Введите число: ');
ReadLn(c);
SWP(A,c);
ReadLn
End.

1. Вычисляет  среднее арифметическое членов последовательности 2, 4, 6, …, не превосходящих заданного числа n.

Объяснение:

ввод n

x = 2 (первый член последовательности)

s = 0

k= 0

нц пока x <= n (член последовательности меньше или равен n)

s= s + x (сумма членов последовательности)

k= k + 1 (количество членов последовательности)

x = x + 2 (новый член последовательности)

кц

rez = s / k (среднее арифметическое - число, равное сумме чисел последовательности, делённой на их количество)

2. первый член последовательности равен 2, а не 1 (x = 2), шаг последовательности равен 2, а не 1 (x = x + 2)

3. условие x <= n, а значит не превосходящих

4. выводится rez (rez = s / k, а не сумма)

5. условие x <= n, а значит член последовательности может быть равен n, а не только меньше

6. шаг последовательности равен 2, а не 1 (x = x + 2)