Ответ:
Все, кроме 3. А вообще все зависит от вируса.
схему для вывода суммы всех 3-ёхзначных чисел кратныз 6
// PascalABC.NET 3.3
begin
var a:=ArrRandom(30,-1000,1000); a.Println;
writeln('Среднее арифметическое = ',a.Where(x->x>a[a.Length-1]).Average);
end.
Пример:
64 682 811 -812 934 -16 -852 -903 584 -248 797 -554 -466 -671 320 739 -575 -662 -882 -927 784 419 929 258 358 -73 -418 674 -196 389
Среднее арифметическое = 735.3
#Держи!!! :)
i=list(input().split())
min=1000
for k in range(len(i)):
s=int(i[k])
if (s<min)and(s>0):
min=s
print(min)