Question

Написать функцию, которая подсчитывает количество элементов файла f, меньших чем среднее арифметическое всех элементов этого файла.Type reals = file of real; var f:reals. Написать программу с процедурами на языке Паскаль

Answer 1

===== PascalABC.NET =====

type

 reals = file of real;

 

procedure CreateReals(fn: string; var f: reals);

begin

 Rewrite(f, fn);

 for var i := 1 to 101 do

   Write(f, Random(-50.0, 50.0));

 f.Close

end;

function GetAverage(f: reals): real;

begin

 Result := f.Elements.Average;

end;

function CountElements(f: reals; m: real) :=

 f.Elements.Where(p -> p < m).Count;

begin

 var f: reals;

 var fn := 'Reals.bin';

 CreateReals(fn, f);

 Reset(f, fn);

 var avg := GetAverage(f);

 avg.Println;

 CountElements(f, avg).Println

end.