Question

Информатика,паскаль,написать программу: сформировать массив, состоящий из n целых элементов, лежащих в промежутке [10; 10] вычислить: -минимальный по модулю элемент - количество элементов кратных 5 - сумму элементов массива, расположенных между первым и последним положительными элементами.

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
  Writeln('Минимальный по модулю элемент равен ',
      a.Select(t->Abs(t)).Min);
  Writeln('Количество элементов, кратных 5, равно ',
      a.Where(t->t mod 5=0).Count);
  Write('Сумма искомых элементов равна ');
  var ai:=a.Indexesof(t->t>0);
  a[ai.First+1:ai.Last].Sum.Println;
end.