For i: =1 to 5 do begin
a: 2*a-1

126 дисков

Объяснение:

Рассмотрим 6го покупателя

х-было  

0,5х+1-продал

осталось 0

х-(0,5х+1)=0

х-0,5х-1=0

0,5х=1

х=1:0,5=2

Аналогично 5й покупатель

х-(0,5х+1)=2

х-0,5х-1=2

0,5х=3

х=3:0,5=6

Аналогично 4й покупатель

х-(0,5х+1)=6

х-0,5х-1=6

0,5х=7

х=7:0,5=14

Аналогично 3й покупатель

х-(0,5х+1)=14

х-0,5х-1=14

0,5х=15

х=15:0,5=30

Аналогично 2й покупатель

х-(0,5х+1)=30

х-0,5х-1=30

0,5х=31

х=31:0,5=62

Аналогично 1й покупатель

х-(0,5х+1)=62

х-0,5х-1=62

0,5х=63

х=63:0,5=126

ответ: Попов принес на ярмарку 126 дисков

           Random rnd = new Random();

           Console.WriteLine("Введите размерность массива");

           int n = Convert.ToInt32(Console.ReadLine());

           int[,] Array = new int[n, n];

           for (int i = 0; i < Array.GetLength(0); i++)

           {

               for (int j = 0; j < Array.GetLength(1); j++)

               {

                   Array[i, j] = rnd.Next(10, 100);

                   Console.Write($"{Array[i,j]}\t");

               }

               Console.WriteLine();

           }

           int[] summ = new int[n];

           for (int i = 0; i < Array.GetLength(0); i++)

           {

               for (int j = 0; j < Array.GetLength(1); j++)

               {

                   summ[i] += Array[j, i];

               }

           }

           for (int i = 0; i < summ.Length; i++)

           {

               Console.WriteLine($"\n{summ[i]/n}");

           }

           Console.ReadKey();

Объяснение: