Составить программу , которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 50 и выводит на экран минимальный элемент массива
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.
1. Если число в двоичной системе заканчивается на 00, значит оно кратно 4-м в десятичной системе. То есть нужно определить, сколько существует двузначных чисел, которые в квадрате кратны 4-м.10*10 Квадрат числа будет кратен четырем в том случае, если это число чётное, то есть ответом будет кол-во четных двузначных чисел, а это 45.
2. 3 бита это 2^3 = 1 из 8 вариантов. Значит четверки - это 1/8 от всех оценок, 64/8=8 четверок
3. Всего существует 5 четных цифр (включая 0). Из них можно составить 5^4 = 625 различных четырёхзначных комбинаций.
