Const
maxn = 15;
type
myarr = array [1..maxn] of longint;
var
a: myarr;
k1, k2, k3, sr, i: longint;
begin
for i := 1 to 15 do begin
read(a[i]);
sr := sr + a[i];
end;
sr := sr div 15;
for i := 1 to 15 do begin
if (a[i] > sr) then
inc(k1);
if (a[i] = sr) then
inc(k2);
if (a[i] < sr) then
inc(k3);
end;
writeln('Количество элементов, больших среднего арифметического, = ', k1);
writeln('Количество элементов, равного среднему арифметическому, = ', k2);
writeln('Количество элементов, меньших среднего арифметического, = ', k3);
end.
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
function Dec2Bin(x:string):string;
begin
var s:=x.MatchValue('\d+');
if s.Length=0 then begin
Writeln('Не найдено НИ ОДНОЙ цифры!');
Result:=''
end
else begin
var t:=s.ToInteger;
var r:string:='';
while t>=2 do (r,t):=(t mod 2+r,t shr 1);
Result:=t+r
end
end;
begin
Writeln(Dec2Bin(ReadlnString('n=')))
end.
В любой деятельности человек всегда придумывал и создавал самые разнообразные средства, приспособления, орудия труда. Все это облегчало труд, делало его производительнее, расширяло возможности людей. Известно, что история материального производства и мировой науки тесно связана с историей развития орудий труда.