1)вычислить значение из степени числа, не пользуясь операцией возведения в степень.найдите произведение первых и натуральных чисел. 2)ввести несколько чичел 3)вычислить среднее арифметическое этих чисел

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

 

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

 

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

       

 

end.

Увас не указано, над каким именно массивом нужно производить вышеописанное действие, поэтому я выкладываю общее решение. предположим, что a - это массив с какими-то сохранёнными числами до a[n] for i: =1 to n do   if a[i] > 0 then       begin       k: =k+1;       sum: =sum+a[i]       end; average: =sum/k; (a - данный массив, sum - сумма всех положительных чисел, k - количество положительных чисел - n - индекс последнего элемента массива, i - переменная для цикла, average - переменная, сохраняющая численное значение) запускаем цикл от 1 до n и перебираем все числа массива. если i-тое число положительно, мы прибавляем его к sum, и увеличиваем k на 1, который сохраняет в себе количество положительных чисел массива. после завершения цикла, мы получаем k - количество положительных чисел, sum - сумма всех положительных чисел. чтобы найти среднее арифметическое, делим сумму всех чисел на их количество. (учитывайте, что переменная, сохраняющая среднее арифметическое должна иметь вещественный тип (real, вот и всё. если у вас возникают какие-то проблемы или ошибки в коде - оставьте комментарий. если у вас проблемы с созданием массива (чтение массива с клавиатуры или создание массива со случайными числами) - опять же таки пишите: )

То есть надо придумать такую цепочку преобразований, чтобы для любого трёхзначного числа всегда получалось 7, я правильно понял? если да, то вот решение. пусть сначала имеем число 724 цепочка: 1) вычесть первую цифру начального числа 724 - 7 = 717 2) вычесть из результата вторую цифру начального числа 717 - 2 = 715 3) вычесть из результата третью цифру начального числа 717 - 4 = 711 4) найти сумму цифр полученного числа 7 + 1 + 1 = 9 5) если результат > 9, повторить шаг 4 6) вычесть 2 9 - 2 = 7 получили 7. работает для любого 3-значного числа.