// 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
Var C:array['a'..'z'] of integer; S:string; i,Max:integer; j:char; Begin Read(S); For i:= 1 to Length(S) do C[S[i]]:=C[S[i]]+1; Max:=C['a']; For j:= 'b' to 'z' do if Max<C[j] then Max:=C[j]; WriteLn(Max) End.
Var A:array[1..10000] of integer; i,k,Max:integer; Begin ReadLn(i); For i:= 1 to i do Read(A[i]); k:=0; Max:=0; For i:= 1 to i-1 do if A[i]>A[i+1] then k:=k+1 else if k>Max then Begin Max:=k; k:=0; End; if Max=0 then WriteLn(0) else WriteLn(Max+1) End.
