Есть программисты?помогите составить алгоритм и программу, пожалуйста: Заполнить массив...

Question

Есть программисты?помогите составить алгоритм и программу, пожалуйста:
Заполнить массив с(34) случайными числами до 38.найти произведение чисел кратных 5. Распечатать массив в строку.

Comments

есть

---

сйечас будет

---

школьная задачка, программистам тут нечего делать))

---

Могу написать решение в одну строчку (без begin end)

---

Согласен) школьная задачка)

Answer 1

// PascalABC.NET 3.0, сборка 1088
begin
  var a:=ArrRandom(35,1,38);
  a.PrintLn;
  Writeln(a.Where(x->x mod 5=0).Aggregate((x,y)->x*y))
end.

Тестовое решение:
35 1 3 3 1 19 31 38 31 32 33 10 7 22 21 1 18 17 19 32 21 18 31 30 10 2 23 34 33 23 12 25 12 5 30
393750000

Comments

Если бы не распечатка исходного массива - была бы одна строка.

---

На моем паскале не идет, хотя новейшая версия

---

Если версия не раньше моей, то пройдет. У меня же прошло.

---

Удивительно как быстро меняются версии, вроде бы только месяц назад скачивал

---

Они меняются там раз в несколько дней. Обкатка идет для 3.0, слишком много они взяли из .NET - среды

---

даа... удивительно)

Answer 2

Вот в этом файле все написано