rofish3.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

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.