Программы n_14 n_15 n_16 в среде АВС паскаля стр 137-139.

1} 136 - не может получиться (если это 13 и 6, то первая сумма больше второй; а если это 1 и 36, то 36 нельзя получить как сумму 2-х цифр)

2} 712 - может получиться (например для числа 257)

3} 215 - не может получиться (если это 21 и 5, то первая сумма больше второй; если это 2 и 15, значит средняя цифра должна быть <=2, но тогда нельзя получить 15 как сумму средней и младшей цифр)

4} 10  - не может получиться (первая сумма больше второй)

5} 621 - не может получиться (21 нельзя получить как сумму 2-х цифр)

6} 619 - не может получиться (19 нельзя  получить как сумму 2-х цифр)

ответ: 1

var

   i,n, pol: integer;  //pol - количество положительных чисел, n - количество всех чисел

   a,s: real;  //a- вводимое число, s - сумма положительных чисел

begin

 pol:= 0;  //обнуляем счетчик

 s:= 0;  

 writeln('Введите количество чисел');

 readln(n);

 for i:= 1 to n do

 begin

   writeln('Введите число');

   readln(a);

   if a > 0 then

   begin

     s:= s + a;

     pol:= pol + 1;  

   end;

 end;

 writeln('Среднее арифметическое положительных чисел:  ', s / pol);  {среднее арифметическое равно сумме чисел делить на их количество}

end.