import random A = [random.randint(-10, 22) for i in range(20)] cnt = num = 0 for i in A: if i >5: cnt += i num += 1 print "Среднее арифметическое - ", float(cnt)/float(num)
Program darixa; var a:array[1..20] of integer; i,sum,index:integer; begin for i:=1 to 20 do begin a[i]:=random(32)-10; if a[i]>5 then begin sum:=sum+a[i]; index:=index+1; end; write(a[i],' '); end; writeln('Sredn=',sum/index); end.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
import random
A = [random.randint(-10, 22) for i in range(20)]
cnt = num = 0
for i in A:
if i >5:
cnt += i
num += 1
print "Среднее арифметическое - ", float(cnt)/float(num)