Question

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

Answer 1

begin

 var a := ReadSeqIntegerWhile(x -> x <> 0).ToArray;

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

end.