.
{Дано два однонаправленных списка целых чисел. Удалить во втором списке все
элементы, больше среднеарифметического положительных элементов первого
списка и продублировать все элементы второго списка, меньше среднего арифметического четных элементов первого списка}
type list=^elem;
elem=record
inf:integer;
next:list;
end;
var p,l,o,i,q,w:list;
x,z,u:integer;
a,s:real;
begin
writeln('Введите первый список: ');
new(p);
l:=p;
readln(x);
p^.inf:=x;
readln(x);
while x<>0 do
begin
new(q);
q^.inf:=x;
p^.next:=q;
p:=q;
readln(x);
end;
p^.next:=nil;
p:=l;
writeln('Введите второй список: ');
new(o);
i:=o;
readln(x);
o^.inf:=x;
readln(x);
while x<>0 do
begin
new(w);
w^.inf:=x;
w^.next:=w;
o:=w;
readln(x);
end;
o^.next:=nil;
o:=i;
while p^.next<>nil do
begin
if p^.inf >= 0 then
begin
s:=s+p^.inf;
inc(u);
p:=p^.next;
end;
if p^.inf mod 2 <> 0 then
begin
a:=a+p^.inf;
inc(z);
p:=p^.next;
end;
end;
a:=a/z;
s:=s/u;
while o^.next^.next<>nil do
begin
if o^.next^.inf>s then
begin
o^.next:=o^.next^.next;
o:=o^.next;
end;
if o^.inf<a then
begin
new(i);
i^.inf:=o^.inf;
l:=o^.next;
o^.next:=i;
i^.next:=l;
o:=o^.next;
end;
end;
writeln('Вывод списка:');
o:=i;
while o<>nil do
begin
writeln(o^.inf);
o:=o^.next;
end;
readln
end.
Список |