Известны данные об уровне дневной выработки тканей рабочими фабрики. Рассчитайте среднюю дневную выработку тканей на одного рабочего традиционным и методом моментов.
Представим что это торт,поделенный на определенные части
И если представить торт разрезанным на две огромные части,то числа на левой части почему-то меньше чисел на правой части
Возьмем число 30 ,напротив него лежит число 6
Напротив 16 число 4
А напротив 9 число 3
Чтобы получить такие значения,нужно число 30 поделить на 5
Число 16 на 4 ,а число 9 на 3
и получили бы как раз 6,4 и 3 :
30÷5=6 , 16÷4=4 , 9÷3=3
Так как нужно найти тот номер,который скрывается под знаком "?" ,а напротив него лежит число "36" ,а оно левее всех,сответственно будет делится на делителя больше предыдущих
Представим что это торт,поделенный на определенные части
И если представить торт разрезанным на две огромные части,то числа на левой части почему-то меньше чисел на правой части
Возьмем число 30 ,напротив него лежит число 6
Напротив 16 число 4
А напротив 9 число 3
Чтобы получить такие значения,нужно число 30 поделить на 5
Число 16 на 4 ,а число 9 на 3
и получили бы как раз 6,4 и 3 :
30÷5=6 , 16÷4=4 , 9÷3=3
Так как нужно найти тот номер,который скрывается под знаком "?" ,а напротив него лежит число "36" ,а оно левее всех,сответственно будет делится на делителя больше предыдущих
т.е. 5,4,3
Они в порядке убывания,значит 5+1=6
36 поделив на 6 придем к ответу :
36÷6=6
ответ: в)6
Объяснение:
type arr=array[1..100] of integer;
var
a:arr;
i,j,k,n:integer;
procedure PrintArr(a:arr;n:integer;s:string);{процедура печати массива}
var
i:integer;
begin
write(s);
write('[');
for i:=1 to n-1 do write(a[i],',');
writeln(a[n],']');
end;
procedure EnterArr(var a:arr;n:integer;s:string);{заполнение массива}
var
i:integer;
begin
write(s);
for i:=1 to n do read(a[i]);
end;
begin
repeat
write('n(1..100)=');
readln(n);
until (n>0) and (n<101);
EnterArr(a,n,'A=');
k:=a[1];
for i:=1 to n do if a[i]<k then k:=a[i];
writeln('Min=',k);
PrintArr(a,n,'A_orig=');
for i:=1 to n do if a[i]=k then a[i]:=i*i;
printArr(a,n,'A_new=');
readln;
end.