Python
1) Заполните список (массив) 10 случайными числами в диапазоне от -50 до 50. Найдите средние арифметические положительных и отрицательных элементов списка.
2) Дан список, состоящий из 15 случайных чисел в диапазоне от -10 до 10. Определить количество элементов, больших суммы всех элементов списка, и напечатать их номера.
3) Дан список, состоящий из 15 случайных чисел в диапазоне от 0 до 100. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального элемента списка, и напечатать их номера.​

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace СиШарп
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.Write("m = ");
            int m = int.Parse(Console.ReadLine());
            Console.Write("n = ");
            int n = int.Parse(Console.ReadLine());
            Console.WriteLine("A({0},{1}):",m,n);
            int[,] A = new int[m,n];
            Random rand = new Random();
            double S = 0;
            for(int i = 0; i < m; i++)
            {
                for(int j = 0; j < n; j++)
                {
                    A[i, j] = rand.Next(-10, 10);
                    Console.Write("{0,3} ",A[i,j]);
                    if (A[i, j] % 2 == 0) S += A[i, j];
                }
                Console.WriteLine();
            }
            Console.WriteLine("S = {0}",S);
            Console.ReadKey();
        }
    }
}

Var
   O:string;
   i,k:byte;
   B,pO:array[1..3] of string;
Begin
B[1]:='2 * 2 = 5 ?';pO[1]:='нет';
B[2]:='Оператор Read вводит данные?';pO[2]:='да';
B[3]:='СССР победил в войне 1812 года?';pO[3]:='нет';
k:=0;
For i:= 1 to 3 do
    Begin
    WriteLn(B[i]);
    ReadLn(O);
    O:=LowerCase(O);
    While (O <> 'да')and(O <> 'нет') do
       Begin
       Write('Попробуйте ещё раз: ');ReadLn(O);
       O:=LowerCase(O);
       End;
    if pO[i] = O then k:=k+1;
    End;
WriteLn('Количество правильных ответов: ',k);
End.