Напиши те программу вычисления в массиве из n элементов, заданных датчиком случайных...

Question

Напиши те программу вычисления в массиве из n элементов, заданных датчиком случайных чисел из промежутка от -13 до 25, количества четных элементов.

Answer 1

Begin
var a := ArrRandom (ReadInteger ('n='), -13,25).Where (x-> x mod 2=0).Count;
write (a);
end.

Comments

Теперь есть x.IsEven и x.IsOdd

---

Да и var a можно не заводить, а сразу все это под Write загнать.

---

Но я бы так написал: Writeln(ArrRandom(ReadInteger('n='),-13,25).Println.Where (x->x.IsEven).Count)

---

Потому что иначе не видно сгенерированной последовательности

---

не знала что так можно. спасибо.

---

Print[ln] не меняет того, что пришло на вход, если оно - последовательность, а остальное он в последовательность превращает.

---

В принципе, постепенно движемся в направлении известного из языка APL "синдрома одной строки".

---

это точно)