PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 9 целых чисел:',9);
var b:=ReadInteger('b=');
Writeln('Сумма элементов с нечетными индексами равна ',
Range(0,9,2).Select(i->a[i]).Sum);
Writeln('Количество элементов, меньших ',b,' и кратных 5 равно ',
a.Where(t->(t
Write('Номер первого элемента c условием: ');
var q:=a.Select((v,i)->(v,i))
.Where(t->(t[0]<0) and (Abs(t[0] mod 5)=2));<br> if q.Count=0 then Writeln('отсутствует')
else Writeln(q.First[1]+1);
Writeln('Массив после частичной замены нулями');
var m:=a.Where(t->t>0).Min;
a.Transform(t->t=m?0:t); a.Println;
Writeln('Результирующий массив');
foreach var i in 0.To(1)+3.To(8) do
if a[i] mod 3=0 then a[i]*=a[2];
a.Println
end.
