Question

Программы - python/pascalabc тема "циклы". решить следующие : 1. вводится n целых чисел х. необходимо определить максимальное число и его номер. 2. вводится n целых чисел х. необходимо найти сумму положительных чисел и произведение четных отрицательных. 3. вводится n целых чисел х. необходимо
определить среднее арифметическое нечетных положительных чисел.

Answer 1

  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.

Answer 2

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)