Question

помогите пожалуйста срочно надо ​

Answer 1

Ответ: Программа написана на языке PascalABC.Net

Program Z1025;

var a,k,s,i:integer;

BEGIN  

            s:=0; k:=0; i:=1;

            write('Задайте первое число в диапазоне 0-300: ');

            read(a);

            while (a<>0) and (i<=100) do

            begin  

                      if (a>9) and (a<100) then  

                      begin s:=s+a;

                                 k:=k+1;

                      end;

                      i:=i+1;

                      write('Задайте ',i,'-ое число в диапазоне 0-300: ');

                       read(a);

            end;

            if k=0 then write('NO') else write(s/k);

END.  

Объяснение: