#arr = [*map(int, input().split(' 0')[0].split())] если числа вводятся в строчку , то раскомментируйте и используйте эту строку, а инициализацию массива arr и цикл while закомментируйте
arr = []
while 1:
tmp = int(input())
if tmp != 0: # Читаем сколько угодно чисел пока не будет ноль
arr.append(tmp)
else:
break
s = 0 # сумма двузначных чисел
k = 0 # количество двузначных чисел
for i in arr:
if 10 <= i <= 99: # итерируемся по циклу и если число двузначное
s += i # то прибавляем его к сумме
k += 1 # счетчик двузначный чисел увеличиваем на один
print(s/k) if k > 0 else print('NO') #если количество двузначных > 0 то выводим среднее арифметическое s/k, если нет то выводим NO
//1
Const
n=10;
Var
ar:array[1..n] of integer;
i,c:integer;
begin
randomize;
readln(c);
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
end;
for i:=1 to n do
if (ar[i]>0) and (ar[i]>c) then
begin
ar[i]:=-ar[i];
swap(ar[i],ar[2]);
break;
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
//2
Var
se:set of char;
s:string;
i,j,k:integer;
begin
se:=['0','1','2','3','4','5','6','7','8','9'];
readln(s);
var ars:=s.Split;
for i:=0 to ars.Length-1 do
begin
for j:=1 to length(ars[i]) do
if ars[i][j] in se then inc(k);
writeln(ars[i],':',k);
k:=0;
end;
end.