Python 3.7.2
some_list = [int(input()) for i in range(int(input('list range: ')))]
EvenSumm = 0 #Сумма чётных
#Ищем сумму чётных
EvenSumm = sum(list(filter(lambda x: x % 2 == 0, some_list)))
#Среднее арифметическое закачивающихся на 5
endswithfive = list(filter(lambda x: x % 10 == 5, some_list))
endswithfive_average = sum(endswithfive) / len(endswithfive)
#Поиск чего то, равного х
something_equal_x = some_list[some_list.index(int(input('x = ')))]
#Маскимум и его индекс
max_ind = some_list.index(max(some_list))
max_and_his_index = (max(some_list), max_ind)
print(f'''
Answers:
a) Even Summ: {EvenSumm}
b) Average of nums, ends with '5': {endswithfive_average}
c) something, equal x: {something_equal_x}, placed under index: {some_list.index(something_equal_x)}
d) maximum and his index: {max_and_his_index}
''')
P.S - Скопированый код может не работать. Это нормально, сайт портит отступы. Код протестирован, работает. Приложен скриншот программы и вывода для придуманных на ходу входных данных
4.
program p3;
uses Robot;
procedure Square2;
begin
right;
paint;
down;
paint;
left;
paint;
up;
paint
end;
var i,j:integer;
begin
Task('p3');
for i := 1 to 6 do
begin
Square2;
if i<=5 then
begin
for j := 1 to 2 do left;
for j := 1 to 2 do up
end
end
end.
5.
program p4;
uses Robot;
procedure Square2;
begin
paint;
right;
paint;
down;
paint;
left;
paint;
up
end;
var i:integer;
begin
Task('p4');
Square2;
for i:= 1 to 2 do right;
Square2;
for i:= 1 to 2 do down;
Square2;
for i:= 1 to 2 do left;
Square2;
for i:= 1 to 2 do up
end.
Объяснение:
Второй вариант 5-го задания с двумя процедурами
program p4;
uses Robot;
procedure Square2;
begin
paint;
right;
paint;
down;
paint;
left;
paint;
up
end;
procedure Square;
var i:integer;
begin
Square2;
for i:= 1 to 2 do right;
Square2;
for i:= 1 to 2 do down;
Square2;
for i:= 1 to 2 do left;
Square2;
for i:= 1 to 2 do up
end;
begin
Task('p4');
Square
end.
алгоритм считает сумму чисел от 2 до 10
2+3+4+5+6+7+8+9+10=54