Паскал. решите пожалуйста, задание на фото.

Паскал. решите пожалуйста, задание на фото.

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

begin
var a:= ReadArrInteger(ReadInteger);
Writeln(a.Where(t -gt; (t mod 4 lt;gt; 0) and (абс(t)gt;99) and (абс(t)lt;1000)).sum);
end.
Наташка Балабанян
Как работает, подскажите пожалуйста.
Влад Армарчук
Writeln(a.Where(t -> (t mod 4 <> 0) and (абс(t)>99) and (abs(t)<1000)).sum);
Женя Грандицкий
a.where <==> фильтровать массив по (каждый элемент кратен "4" и модуль числа в промежутке [100;999]
Геранькина Елизавета
sum - суммировать(a.where(тут условие фильтра*)
Светлана
Спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт