rofish3.pas

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

program numere;
var f:text;
    n,i,s,p:integer;
    v:array[1..100] of integer;
begin
write('n=');readln(n);
assign(f,'abc.txt');
reset(f);
s:=0;
p:=0;
for i:= 1 to n do
               begin
               s:=s+v[i];
               if v[i]< (s/n) then p:=p+1;
               end;
close(f);
write('p=',p);
readln;
end.