PascalABC.NET Задать массив из 8-ми элементов заданных с клавиатуры. Найти...

Question

PascalABC.NET

Задать массив из 8-ми элементов заданных с клавиатуры. Найти среднеарифметическое всех элементов и наибольший элемент.

Answer 1

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

begin
  var a:=ReadArrInteger('Вводите:',8);
  Writeln('Ср.арифм.=',a.Average,', максимум равен ',a.Max)
end.

Пример
Вводите: 6 -4 2 0 4 9 1 6
Ср.арифм.=3, максимум равен 9

Comments

Спасибо