Pascal ABC ПОМОГИТЕ Безотлагательно ДАЮ 40Б!Дана целочисленная последовательность. Признаком

Pascal ABC ПОМОГИТЕ Безотлагательно ДАЮ 40Б!
Дана целочисленная последовательность. Признаком окончания последовательности является ноль, записанный после заключительного элемента последовательности. Вычислить сумму каждого третьего элемента, начиная с первого.

Задать свой вопрос
1 ответ

begin

 var a := ReadSeqIntegerWhile(x -gt; x lt;gt; 0).ToArray;

 a.Where((el, ind)-gt; ind mod 3 = 0).Sum.Println;

end.

Gena Rjabec
а можно обьяснение
Alisa Shamnova
а то так функции не работают в free pascal
Ксения Гребиша
в фрипаскале это не работает
Максим Карыбин
обьясните код,который вы написали
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт