Заполнить массив из 25 частей случайными числами в интервале (20, 100)

Заполнить массив из 25 частей случайными числами в промежутке (20, 100) и вычислить сумму всех элементов массива А, которые делятся на 3

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

begin
  var a:=ArrRandom(25,20,100); a.Println;
  Writeln('S=',a.Where(x-gt;x mod 3=0).Sum)
end.

Пример
38 51 63 80 69 79 64 96 76 62 33 94 52 61 90 35 85 85 39 33 80 66 34 66 86
S=606

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт