Дан одномерный массив размером 15 элементов, заполненный рандомно от 0 до 100. Найти...

Question

Дан одномерный массив размером 15 элементов, заполненный рандомно от 0 до 100. Найти сумму и произведение элементов массива. Заранее спасибо

Comments

какой язык?

---

Pascal

---

5 min

---

Благодарю

Answer 1

Ответ:

Объяснение:

program HelloWorld;

var arr : array [1 .. 15] of Integer;

   sum, prod : real;

   i : Integer;

begin

  randomize;

  for i := 1 to 15 do arr[i] := Random(100);

  sum := 0; prod := 1;

  for i := 1 to 15 do begin

  sum := sum + arr[i];

  prod := prod * arr[i];

  end;

 

  writeln('sum = ', sum);

  writeln('prod = ', prod);

end.

Comments

Первый же запуск

---

-1209754624
6643763898269080576
19633979458325232000000

---

Без всяких вероятностей

---

Второй запуск

---

1562378240
-6158894779194146816
6007479673250119680000

---

456720384
7009470607024259072
9377955460051476480000

---

1331703808
-2645483107479703552
21155769969437376000000

---

Пять запусков - пять переполнений. Какая еще нужна статистика?

---

На шестом вот 0 попался ))

---

А вот sum как раз можно было integer оставить, она не превышает 1500