2в нулевой степени=0 а если 1*2 в нулевой степени=1 вопрос: почему?

по определению любое число в нулевой степени=1, а не 0.

так что 1*2^0=1*1=1

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.

Появилось две линии, стрелочка начала зацикливаться. Получается алгоритм будет выполняться бесконечное количество раз. Чтобы более точно ответить на письменный вопрос - можете провести идентичные действия:

Заходим в ГРИС.

Нажимаем "Начать"

Нажимаем F4(поворот) три раза. (В условии сказано, что исходное положение: ГРИС — в левом верхнем углу, направление — вниз.)

Теперь нажимаем F8(цикл) - выбираем: Пока впереди не стена.

Следующим этапом нажимаем F5 (описание). В появившейся строке нужно написать ПУТЬ и нажать Enter. Чтобы отключить окно нажимаем Esc. Жмем ещё два раза Enter.

Нажимаем: F4 - F3 - F4 (поворот - прыжок - поворот).

При откладки (вверху) спускаемся в самый низ на панели наших действий (слева).

Жмем F8 - Пока впереди стена.

Жмем F2 (шаг).

Жмем на откладку вверху и смотрим результат

Готово))