Одномерный массив состоит из 15 элементов. Массив заполняется случайными числами из...

Question

Одномерный массив состоит из 15 элементов. Массив заполняется случайными числами из диапазона от 7 до 62. Выведите массив на экран в строчку и найдите произведение элементов массива.

Comments

Ну, по-вашему, тогда и не нужно изучать алгоритмы "сортировки" и т.п., есть же более простые способы. Изучение информатики это не просто заучивание операторов, а обучение мышлению)))

---

Почему то не могу добавить решение. Время, что ли вышло?!

---

Блин(( Написал прогу, а не могу вставить! Фигня какая-то(((

---

А внизу пишут, что я добавил решение! И где оно? Чертовщина))))

---

Ну все, кажется, появилось.

---

Согласен полностью по поводу сортировки (честно говоря, у меня самого шаблон кода лежит, который копирую и вставляю при необходимости) )))

Answer 1

Вот тривиальное решение.

var
  a:array [1..15] of integer;
  i:integer;
  p:BigInteger;
begin
p:=1;
for i:=1 to 15 do
  begin
  a[i]:=random(7,62);
  p:=p*a[i];
  write(a[i],'; ');
  end;
writeln;
writeln('Произведение=',p)
end.

Comments

Уже понял это. Надо как-то менять свой стиль решений(((

---

И как обычно, Вы правы)

---

Да, мне сам процесс интересен, не баллы. Но столько вокруг интересного, вот и начинаешь спешить, чтобы успеть. Но в результате - "за двумя зайцами...". Как говорится, лучше сделать одно дело, но хорошо, а не два плохо.

---

Да, спасибо

Answer 2

// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,7,62); a.Println;
  Writeln('Произведение элементов ',
      a.Aggregate(BigInteger(1),(x,y)->x*y))
end.

Пример
24 43 36 54 9 37 42 9 34 14 24 42 21 44 16
Произведение элементов 1791312802990350925824

Comments

Ну все же моя задача остается нерешенной

---

Тоесть решенной, но не так как нужно мне

---

Ясно

---

Я в первый рас задал вопрос , и теперь по просту трачу свое время на дискуссию с вами. Спасибо вам за ваше решение!

---

хорошо