Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двузначных чисел или сообщает, что таких чисел нет. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое двузначных чисел или вывести no, если таких чисел в последовательности нет.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var r: =readseqintegerwhile(t-> t< > 0).where(t-> t.between(10,99))           .defaultifempty.average;   (r> 0 ? r.tostring : 'no').println end.

Замечание. так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием true, но как только будет введено число 0, остановим цикл командой break. программа: program z; var k,s,x: integer; begin k: =0;               {начальное значение количества двузначных чисел} s: =0;               {начальное значение суммы двузначных чисел} while true do  {открываем бесконечный цикл} begin readln(x);         {вводим число х} if x=0 then break;   {если введенное число равно 0, то остановить цикл} if (x> 9)and(x< 100) then  {если число двузначное, т.е. от 10 до 99}      begin      k: =k+1;           {количество увеличиваем на 1}     s: =s+x;           {увеличиваем предыдущее значение суммы на число х}     end; end; if k=0 then writeln('no')  {если двузначных чисел не было, то вывод no}     else writeln(s/k);           {иначе вывод ср.арифметического} end.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.