asd / корзина / лекции по TP / Lecture_Pascal / graph / LAB5

 uses crt;
 const nmas=10;
 type mas=array[1..nmas] of real;
   var b:mas;
       i,k:byte;
       c:real;
   const a:mas=(2,13.5,5,10.4,-23,8.3,-4.1,6.2,-2,0.65);
   procedure print(c:mas;n:byte;l:string);
      var i:byte;
      begin
         writeln(l);
         for i:=1 to n do write(c[i]:4:2,'  ');
         writeln
      end;
   begin
       clrscr;
       c:=0;
       for i:=1 to nmas do c:=c+a[i];  c:=c/nmas;
       k:=0;   for i:=1 to nmas do if a[i]>c then begin
                                                  k:=k+1;
                                                  b[k]:=a[i]
                                                  end;
        print(a,nmas,'ishodny massiv');
        writeln('c=',c:5:2);
        if k=0 then writeln('massiv b not form')
               else print(b,k,'massiv b');
   end.