===== 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.
А)19=10011=23=13
б) 231=11100111=347=Е7
в) 506=111111010=772=1FA
г)57,105=111001,00011=71,06514=2F,1AE14
1.)Стрелка
<span>2.)Список
</span>3.)Отмена
Как то так))
=1*1/2=1/2=0,5
...........................