Для начала продумаем наше решение. Сначала заполним массив случайными числами с цикла и сразу в нем найдем сумму его чисел, чтобы потом найти среднее арифметическое, а потом уже в следующем цикле будем искать числа больше или меньше среднего арифметического.Для того чтобы решить задачу нам понадобятся следующие переменные :1. Переменная mass — для нашего массива 2. Переменная more — для чисел больше среднего арифметического 3. Переменная less — для чисел меньше среднего арифметического 4. Переменная aver — для среднего арифметического 5. Переменная i — для циклаНачнем мы с каркаса нашей программы :123456789101112131415const N = 40;type massiv = array [1..N] of integer;var mass: massiv; more, less, i : integer; aver : real; begin randomize; aver := 0; more := 0; less := 0;end.
Program qq; var a, count2, count3: integer; begin writeln('Введите число'); readln(a); count2:=0; count3:=0; while a>0 do begin if a mod 10 = 2 then count2:=count2+1; if a mod 10 = 3 then count3:=count3+1; a:=a div 10; end; if count2>count3 then a:=count3 else if count3>count2 then a:=count2 else a:=count2; if a<>0 then while a>0 do begin writeln('Выведено число 23'); a:=a-1; end else writeln('Нельзя получить число 23 из цифр введённого числа'); end.
Разве не гиперссылка? или я что-то путаю