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

0 голосов
115 просмотров

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


Информатика (14 баллов) | 115 просмотров
0

язык какой?

0

паскаль

Дано ответов: 2
0 голосов

Ответ:

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.


image
(3.7k баллов)
0 голосов

// PascalABC.NET 3.6.3

begin

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

 a.Println;

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

end.


image
(1.6k баллов)
0

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

0

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

0

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

0

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

0

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

0

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

0

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

0

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

0

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

0

Спасибо!