Абак — греческое слово и переводится как счетная доска. Идея его устройства заключается в наличии специального вычислительного поля, где по определенным правилам перемещают счетные элементы. Действительно первоначально абак представлял собой доску, покрытую пылью или песком. На ней можно было чертить линии и перекладывать камешки. В Древней Греции абак служил преимущественно для выполнения денежных расчетов. В левой части подсчитывались крупные денежные единицы, а в правой — мелочь. Счет велся в двоично-пятеричной системе счисления. На такой доске было легко складывать и вычитать, добавляя или убирая камешки и перенося их из разряда в разряд.
CONST k=10; {k - количество чисел в массиве}VAR a:array[1..k] of integer; i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением} sr:real; {sr - среднее арифметическое} BEGIN summ:=0; n:=0; {Обнуляем счетчики} for i:=1 to k do begin a[i]:=random(50); {Заполняем массив случайными числами} write (a[i],' '); {Выводим массив} if a[i] mod 2=0 then begin summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями} n:=n+1 end end; sr:=summ/n; {Находим среднее арифметическое} writeln; writeln (sr:0:2) {Выводим среднее арифметическое}END.
Абак — греческое слово и переводится как счетная доска. Идея его устройства заключается в наличии специального вычислительного поля, где по определенным правилам перемещают счетные элементы. Действительно первоначально абак представлял собой доску, покрытую пылью или песком. На ней можно было чертить линии и перекладывать камешки. В Древней Греции абак служил преимущественно для выполнения денежных расчетов. В левой части подсчитывались крупные денежные единицы, а в правой — мелочь. Счет велся в двоично-пятеричной системе счисления. На такой доске было легко складывать и вычитать, добавляя или убирая камешки и перенося их из разряда в разряд.