Написать программку наполнения массива из 50 частей случайными числами в спектре

Написать программу наполнения массива из 50 частей случайными числами в спектре от -50 до 50 найдите количество частей которые имеют чётное значение и не делятся на три

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(50,-50,50); a.Println;
  Writeln('k=',a.Where(x-gt;x.IsEven and (x mod 3lt;gt;0)).Count)
end.

Пример
46 39 16 14 -16 -35 -34 -38 5 16 -13 -19 48 18 -33 -37 3 -41 46 38 15 21 50 50 21 -29 -34 4 -31 -18 31 -2 26 45 -8 1 13 29 -35 -46 25 -38 -13 23 14 -17 -30 35 9 -34
k=20
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт