Составить программу вычисления произведения элементов массива в, если массив состоит из 10 элементов введенных с клавиатуры. )

Uses crt; const n=10; var b: array[1..n] of integer; i,pr: integer; begin pr: =1; for i: =1 to n do begin readln(b[i]); pr: =pr*b[i]; end; writeln(pr); end.

сейчас роботы очень распространены. они есть и на заводах, и на фабриках, роботы дажн добрались до луны! дома нам голосовые , они не только могут заменить тебе собеседника, но и управлять различными приборами, которые есть в доме. также с ними можно искать информацию с интернета. на фабриках и заводах роботы называются "манипуляторами", они соединяють детали и собирают нужный предмет. на луне и на марсе есть роботы-лунаходы, они работают на солнечных батареях и собирают информациб о планете, на которой находятся. искуственные спутники земли, частично тоже являются роботами. да что можно говорит, сейчас есть даже конструкторы роботов! например, LEGO BOOST, EV3 и другие. в будущем, почти всю работу будут делать роботы. но всё, же - роботов нужно контролировать. нельзя просто наделить машину ИИ и отправить на работу. ведь если роботы обретут разум, но их нельзя будет контролировать, может произойти, настоящий конец света. надеюсь, роботы людям!

ЛУЧШИЙ ОТВЕТ

// Массив из "a" заполнил псевдорандомными числами от 0 до 3 для наглядности

using System;

namespace ConsoleApp1

{

   internal class Program

   {

       private static void Main()

       {

           const int numsCount = 24;

           const int resCount = 10;

           double[] nums = new double[numsCount];

           double[] res = new double[resCount];

           var rand = new Random();

           for (int i = 0; i < numsCount; i++)

           {

               nums[i] = rand.Next(0, 4);

               Console.WriteLine($"a[{i}] = {nums[i]}");

           }

           Console.WriteLine();

           for (int i = 1; i <= resCount; i++)

           {

               double sum = 0;

               for (int j = 0; j < numsCount; j++)

                   sum += Math.Pow(nums[j], i);

               res[i - 1] = sum;

               Console.WriteLine($"b[{i - 1}] = {sum}");

           }

           Console.ReadLine();

       }

   }

}