Дано: n, a[1:n]
Результат: b[1:k] или сообщение «нет отрицательных элементов»
При : n Є N, n≤ Lmax
Связь: 
b[j]=a[i], если a[i]≤sr, i=1,n, j=1,k.
Алг «новый массив»
Нач
ввод(n, a[1:n])
{инициализации}
sr:=0
kol:=0
циклот i:=1 до n
если a[i] <0 то
sr:=sr+a[i]
kol:=kol+1
все
кц
если kol=0 то
вывод(«нет отрицательных элементов»)
иначе
sr:=sr/kol
k:=0{длина нового массива B}
циклот i:=1 до n
если A[i] ≤sr то
k:=k+1
B[k]:=A[i]
все
кц
вывод(B[1:k])
все
кон
program new_array;
type
mass=array[1..20] of integer;
var a, b:mass;
i,k,n,kol:integer;
sr:real;
begin
repeat
writeln('введите n от 1 до 20');
read(n);
until (n>0) and (n<=20);
writeln ('введите массив A из ', n, ' элементов');
for i:=1 to n do
read(A[i]);
sr:=0;
kol:=0;
for i:=1 to n do
if a[i]<0 then
begin
sr:=sr+a[i];
kol:=kol+1;
end;
if kol=0 then
writeln ('нет отрицательных элементов')
else
begin
sr:=sr/kol;
k:=0;{длина B}
for i:=1 to n do
if A[i] <=sr then
begin
k:=k+1 ;
B[k]:=A[i];
end;
writeln('Получен массив');
for i:=1 to k do
write(b[i]:10);
end;
end.
Тесты:
1. n=5, A={1, -2, 3, -4, 5}, b={-4}
2. n=2, A={0, 6}, “нет отрицательных элементов”
