1. Задан массив А [1..20] случайных чисел до 50. Найти среднее арифметическое всех значений. 2. В заданном одномерном массиве, состоящем из N целых чисел, введенных с клавиатуры, подсчитать количество четных элементов. 3. Найти произведение элементов целочисленного одномерного массива с нечетными номерами, состоящего из N элементов. Элементы вводятся с клавиатуры.

Если собака может загрызть козла тогда берём козла и собаку перевозим на другой берег там оставляем козла и забираем собаку обратно. На неачальном берегу оставляем собаку и капусту и забираем 2-ух волков. Везём волков к козлу оставляем волков на 2-ом берегу и забираем козу. Оставляем козу на начальном берегу и забираем капусту и собаку. Оставляем капусту вместе с волками а собаку  

забираем обратно едем к козе берём козу перевозим собаку и козу к 2-ум волкам и капусте. Всех перевезли. В кратце.

1) коза и собака

2) собака обратно 

3) 2 волка

4) коза обратно 

5) собака и капуста

6) собака обратно 

7) коза и собака

8) всё перевезли

Наверное имелось ввиду произведение его цифр, тогда может получиться так:

1. Решение без циклов
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;//n1-кол-во четных, n2-нечетных
begin
  read(n);
  p:=1; 
 
//получаем остаток от деления (единицы) и умножаем на него p
  x:=n mod 10; p:=p*x;
//отбрасываем единицы
  n:=n div 10;
//получаем остаток от деления (десятки) и умножаем на него p
  x:=n mod 10; p:=p*x;
//отбрасываем десятки
  n:=n div 10;
//получаем остаток от деления (сотни) и умножаем на него p
  x:=n mod 10; p:=p*x;
//отбрасываем сотни
  n:=n div 10;
//получаем остаток от деления (тысячи) и умножаем на него p
  x:=n mod 10; p:=p*x;
//отбрасываем тысячи
 n:=n div 10;
///получаем остаток от деления (сотни тысяч) и умножаем на него p
 x:=n mod 10; p:=p*x;
// Теперь в p находится произведение единицы*сотни*тысячи*сотни тысяч

  writeln('Произведение цифр ',p);
end.

2. Решение с циклом

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;
begin
  readln(n);
  p:=1;
  while n>0 do  begin
  x:=n mod 10; p:=p*x;
  n:=n div 10;
  end;
  writeln('Произведение цифр ',p);
end.