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

Question

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

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Васька · Answer 1 · 2019-09-15 02:37:52+3:00

Васька 2019-09-15 02:37:52

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

Анастасия Волганова 2019-09-15 02:41:37

Сейчас есть x.IsEven и x.IsOdd

Гена Харакопуло 2019-09-15 02:51:01

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

Тема Московкин 2019-09-15 02:58:38

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

Перваткина Элина 2019-09-15 03:05:01

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

Света Щукинская 2019-09-15 03:09:07

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

Дерековский Владислав 2019-09-15 03:16:59

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

Елизавета 2019-09-15 03:18:07

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

Марина Шавирина 2019-09-15 03:21:45

это точно)