Напишите программу которая создаёт одномерный массив из 400 позиций заполняет его целыми случайными числами и считает количество честных и ннчётных значений. вывести результат подсчета

//pascal abc.net v3.1 сборка 1172 //1 var   i,x,max,n,maxi: integer; begin max: =-32768; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n> =max then       begin         max: =n;         maxi: =i;       end;   end; writeln(maxi); end. пример ввода: 3 1 2 2 пример вывода: 3 //2 var   i,x,min,n,mini: integer; begin min: =32767; readln(x); i: =0;   while i< > x do   begin     i: =i+1;     readln(n);     if n< min then       begin         min: =n;         mini: =i;       end;   end; writeln(mini); end. пример ввода: 3 1 1 2 пример вывода: 1

def welcome():

 print('Введите ваше имя!')

 name = input()

 print('Введите вашу фамилию!')

 surname = input()

 print(' ')

 print('{0} {1}, мы рады приветствовать Вас!' .format(name, surname))

 print(' ')

welcome()

def arithmetic():

 print(' ')

 print('Выберете выполняемую операцию: "+" - для сложения, "-" - для вычитания, "/" - для для деления, "*" - для умножения')

 print(' ')

 operation = input()

 print('Введите первое число:')

 number1 = int(input())

 print('Введите второе число:')

 number2 = int(input())

 if operation == '+':

   result = number1 + number2

   print('Ваш результат:', result)

 elif operation == '-':

   result = number1 - number2

   print('Ваш результат:', result)

 elif operation == '/':

   result = number1 / number2

   print('Ваш результат:', result)

 elif operation == '*':

   result = number1 * number2

   print('Ваш результат:', result)

 else:

   print('"Неизвестная операция"')    

arithmetic()

print(' ')

print('Желаете ли вы ещё воспользоваться калькулятором?')

print('Введите Y - если Да, или N - завершить работу')

answer = input()

if answer == 'Y' or 'y':

 arithmetic()

elif answer == 'N' or 'n':

 print('Досвидули мэн!')

else:

 print('Неверный символ')

Объяснение: