// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
function IsGood(Self:integer):boolean; extensionmethod; begin (var max,var min,var n):=(0,9,abs(Self)); while n>0 do begin var d:=n mod 10; if d>max then max:=d; if d<min then min:=d; n:=n div 10 end; Result:=max-min<5 end;
function P(name:string):double; begin Result:=ReadElements&<integer>(name).Where(n->n.IsGood).Average end;
begin Writeln('Среднее арифметическое равно ',P(ReadlnString('Имя файла:'))) end.
Пример Имя файла: integers.pas Среднее арифметическое равно 1.78571428571429
Анализом доходов и расходов занимается каждый человек, которому небезразлично финансовое благополучие своей семьи. Если вы не знаете сколько у вас денег значит их у вас нет. Ведение бюджета позволяет всегда оставаться в плюсе, предупреждать ненужные траты, реализовывать цели и мечты.
Готовых программ для учета доходов и расходов много. Но найти лучшую программу, которая выполняла бы все запросы конкретной семьи сложно. Ведь запросы-то разные. Предлагаем составить семейный бюджет в Excel и адаптировать его под свои нужды.
// Внимание! Если программа не работает, обновите версию!
function IsGood(Self:integer):boolean; extensionmethod;
begin
(var max,var min,var n):=(0,9,abs(Self));
while n>0 do begin
var d:=n mod 10;
if d>max then max:=d;
if d<min then min:=d;
n:=n div 10
end;
Result:=max-min<5
end;
function P(name:string):double;
begin
Result:=ReadElements&<integer>(name).Where(n->n.IsGood).Average
end;
begin
Writeln('Среднее арифметическое равно ',P(ReadlnString('Имя файла:')))
end.
Пример
Имя файла: integers.pas
Среднее арифметическое равно 1.78571428571429
Объяснение:
Анализом доходов и расходов занимается каждый человек, которому небезразлично финансовое благополучие своей семьи. Если вы не знаете сколько у вас денег значит их у вас нет. Ведение бюджета позволяет всегда оставаться в плюсе, предупреждать ненужные траты, реализовывать цели и мечты.
Готовых программ для учета доходов и расходов много. Но найти лучшую программу, которая выполняла бы все запросы конкретной семьи сложно. Ведь запросы-то разные. Предлагаем составить семейный бюджет в Excel и адаптировать его под свои нужды.