Question

Одномерные массивы. помогите решить срочно надо​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 a.Println; // 1

 SeqGen(n, i -> a[i] / Sqr(i + 1)).Sum.Println; // 2

 a.Count(p -> (p mod 3 = 0) and (p mod 10 = 7)).Println; // 3

 a.Where(p -> p.IsEven and (p > 0)).Sum(p -> Sqrt(p)).Println; // 4

 // 5

 var m := a.Min;

 if m < 0 then

   Println(m)

 else

   Println('Нет отрицательных чисел')

end.