Question

Помогите написать программу на Паскале! 2-ое задание!

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=Arr(4,2,23,3,100,8); a.Println;
  Writeln('Ср.арифметическое=',a.Average,', максимум=',a.Max)
end.

Пример
4 2 23 3 100 8
Ср.арифметическое=23.3333333333333, максимум=100