Программы - python/pascalabc тема "циклы". решить следующие : 1. вводится n целых чисел х. необходимо определить максимальное число и его номер. 2. вводится n целых чисел х. необходимо найти сумму положительных чисел и произведение четных отрицательных. 3. вводится n целых чисел х. необходимо
определить среднее арифметическое нечетных положительных чисел.
uses crt;
var max,i,a,n:integer;
begin
write('Введите количество чисел ');
readln(n);
write('Введите число ') ;
readln(a);
max:=a;
for i:=1 to n-1 do
begin
write('Введите число ') ;
readln(a);
if a>max then
max:=a;
end;
writeln('Максимальное ',max);
readkey
end.
def f3():
from functools import reduce
numbers = list(map(int, input("Введите числа: ").split(' ')))
odd_positive = sum([x for x in numbers if x > 0 and x % 2 == 1])
return sum(odd_positive)/len(odd_positive)def f1():
numbers = list(map(int, input("Введите числа: ").split(' ')))
max_number = max(numbers)
max_index = numbers.index(max_number)
return max_number, max_index
def f2():
from functools import reduce
numbers = list(map(int, input("Введите числа: ").split(' ')))
sum_positive = sum([x for x in numbers if x > 0])
product_even_negative = reduce(lambda a, x: a*x, [n for n in numbers if n % 2 == 0 and n < 0])
return sum_positive , product_even_negative
def f3():
numbers = list(map(int, input("Введите числа: ").split(' ')))
new_numbers = [x for x in numbers if x > 0 and x % 2 == 1]
return sum(new_numbers)/len(new_numbers)