Объяснение:
Задача 17.28
from random import *
n=int(input('Введите n :'))
p=int(input('Введите p :'))
k1=int(input('Введите n :'))
k=[0]*n
a1=0
a2=0
a3=0
for i in range (0, n):
k[i] = randint(0, 101)
if k[i]>p:
a1+=1
if k[i]%k1==0:
a3+=1
s=str(k[i])
if s[len(s)-1]=='5':
a2+=1
print(k)
print('a)', a1)
print('б)', a2)
print('в)', a3)
Задача 7.43
from random import *
n=9
k=[0]*n
b=0
c=0
for i in range (0, n):
k[i] = randint(1, 101)
a = randint(1, 20)
k[i] = k[i]/a
if k[i]>10:
b=b+ k[i]
c+=1
print(k)
print('Среднее арифметическое чисел > 10 = ', b/c)
Рассмотрим задачи последовательно
Объяснение:
Задача 1.
Спросим все параметры, запишем операнды в список с list comprehensions.
Далее в цикле для каждого элемента спросим, подходит ли он по условию, в зависимости от результата увеличим соответствующие счетчики.
Выведем всю нужную информацию, используя f-строки.
Задача 2.
Введем все числа в список сразу в числовом типе float. Далее отфильтруем их, используя описанную функцию is_right(). Выведем сумму элементов деленную на длину получившегося списка clear_list.
a: array of integer;
s, i, j: integer;
begin
setLength(a, 11);
for i := 0 to 10 do
begin
a[i] := round(random(55));
write(a[i]:6);
end;
writeln(#13, #13, '-=1=-');
for i := 0 to 10 do
if (a[i] mod 2 = 0) then
s := s + a[i];
writeln(s);
writeln(#13, #13, '-=2=-');
s := 0;
for i := 0 to 10 do
if (a[s] > a[i]) then
s := i;
for i := s to 9 do
a[i] := a[i + 1];
setLength(a, 10);
for i := 0 to 9 do
write(a[i]:6);
end.