Question

помогите решить, пожалуйста

Answer 1

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<b) and (t mod 5=0)).Count);
  Write('Номер первого элемента c условием: ');
  var q:=a.Select((v,i)->(v,i))
      .Where(t->(t[0]<0) and (Abs(t[0] mod 5)=2));
  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.