64.Дано натуральное число n и действительные числа a1,a2,,...,an. Найти b равное среднему арифметическому чисел a1,а2,...ап. И наибольшее отклонение от среднего, т.е. max(a1, -b,a2 -b,...an - b)
Var ma:array[1..n,1..n] of integer; i,j,max,maxj,a:integer; begin max:=-1; randomize; writeln('Matrix:'); for i:=1 to n do begin; for j:=1 to n do begin; ma[i,j]:=random(10); write(ma[i,j]:4); end; writeln; end; for j:=1 to n do begin for i:=1 to n do a:=a+ma[i,j]; if a>max then begin max:=a; maxj:=j; end; a:=0; end; write('Максимальный по сумме столбец:',maxj); end.
1. Разностная машина Беббиджа должна была заменить группу вычислителей, которые аккуратно склвдывали и вычитали числа. Поэтому утверждение "Б" - справедливо 2. Подготовка данных с перфокарт, утверждение "А" - справедливо. 3. Утверждение "Г" - спорно, хотя в 2000 году в лондонском Музее науки заработал принтер, придуманный Бэббиджем для своей машины.
Вообще машина проектировалась как механический аппарат предназначенный для автоматизации вычислений путем аппроксимации функций многочленами и вычисления конечных разностей.
##
var n := ReadInteger;
var a := ReadArrInteger(n);
var b := a.Average;
var d := a.Select(t -> t - b).Max;
Print(b, d)