a25.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 56 行

type pnod=^nod;
     nod=record
     inf:integer;
     leg:pnod;
     end;
var prim:pnod;
    n,i,p:integer;
procedure creare(var p:pnod);
var nou,ultim:pnod;
begin
if p=nil then begin
              new(p);
              write('p^.inf=');readln(p^.inf);
              p^.leg:=nil;
              ultim:=p;
              end
          else begin
               new(nou);
               write('p^.inf=');readln(p^.inf);
               nou^.leg:=nil;
               ultim^.leg:=nou;
               ultim:=nou;
               end;
end;
procedure medie(p:pnod;var s:integer);
begin
s:=0;
while p<>nil do begin
                s:=s+p^.inf;
                p:=p^.leg;
                end;
end;
procedure afisare(p:pnod);
var i:integer;
begin
i:=0;
if p=nil then writeln('lista vida ')
         else while p<>nil do begin
                              inc(i);
                              if i mod 2=1 then
                                if p^.inf mod 2=0 then write(p^.inf,' ');
                              p:=p^.leg;
                              end;
end;
begin
write('n=');readln(n);
prim:=nil;
for i:=1 to n do
   creare(prim);
p:=0;
medie(prim,p);
writeln('media ester ',p/n:2:2);
afisare(prim);
end.