Question

помогите пожалуйста,умоляю

Answer 1

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

- 1 -

begin

 var a: array of real = (79, 73, 72.7, 86, 74, 81.5);

 a.Println.Average.Println

end.

- 2 -

begin

 var m := ReadInteger('m =');

 var a := ReadArrInteger(m);

 a.Sum.Println

end.

- 3 -

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, 0, 74);

 a.Println.Where(p -> p mod 7 =0 ).Println

end.