СРОЧНО! 25 БАЛЛОВ! Дан одномерный массив длиной 15 элементов, заполненный рандомно...

Question

СРОЧНО! 25 БАЛЛОВ! Дан одномерный массив длиной 15 элементов, заполненный рандомно числами от 0 до 100. найти сумму элементов массива и произведение

Comments

язык какой?

---

паскаль

Answer 1

Ответ:

var

   a: array [1..15] of integer;

   sum: integer;

   mult: BigInteger = 1;

begin

   for var i := 1 to 15 do

       a[i] := random(0, 100);

   

   foreach i: integer in a do

   begin

       sum += i;

       mult *= i;

   end;

   writeln(sum);

   writeln(mult);

end.

Объяснение:

Произведение получается слишком большим для integer, поэтому используем BigInteger.

---

Answer 2

// PascalABC.NET 3.6.3

begin

 var a := ArrRandom(15, 0, 100);

 a.Println;

 Print('Сумма', a.Sum, '  произведение', a.Product(p -> BigInteger(p)))

end.

---

Comments

С этим заморитесь разбираться

---

Там только синтаксис, а когда, что и почему - не объясняется

---

А в книгах обяснено все.

---

Ну мне только синтаксис и нужен, всё как и почему я знаю, но а для новичков - да

---

Это Ваше дело, конечно. Если Вы знаете C#, Python, Haskell - тогда безусловно нужен только синтаксис))

---

Потому что нынешний PascalABC.NET - это сплав паскаля с преречисленными языками.

---

Это я заметил :)

---

Свежая фишечка вот )))

---

begin
var a := ArrRandom;
a.Println;
a[::2] := a[^1::-2];
a.Print
end.

---

Спасибо!