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.