Question

Помогите составить программу на языке Паскаль. Дам 20 баллов

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := Arr(3.5, 4.2, 5.7, 6.3, 4.5, 7.1, 3.3);

 Writeln('a) ', a.Sum);

 Writeln('б) ', a.Where(t -> t > 5).Sum);

 Writeln('в) ', a.Max);

 Writeln('г) ', a.Where(t -> t < 5).Count);

 Writeln('д) ', a.IndexMin + 1)

end.

a) 34.6

б) 19.1

в) 7.1

г) 4

д) 7