переменная:=начальное_значение; { переменная2:=значение2; ...}
while условие do begin
  оператор; { оператор; ...}
  { изменить: переменная, переменная2, ...}
end;

Среднее значение элементов массива [1.0, 2.0, 3.0, 4.0] = 2.5
Среднее значение элементов массива [] = Массив пуст!

function Avg(const a: array of Double): Double;
var t: Double;
begin
  Result:=0;
  for t in a do Result+=t/Length(a);
end;

function Avg(const a: array of Double; n: Integer): Double;
var j: Integer;
begin
  Result:=0;
  for j:=0 to n-1 do Result+=a[j]/n;
end;

{$mode ObjFPC}
uses v;
var a: TDblArr;
begin
  if vRead(a,input) then begin
    Write('Среднее значение элементов массива ');
    vWrite(a,output);
    Write(' = ');
    try
      WriteLn(vAvg(a):0:1);
    except
      WriteLn('Массив пуст!')
    end;
  end;
end.

{$mode ObjFPC}
unit v;

interface

uses SysUtils;

type TDblArr = array of Double;

function  vAvg(const a: TDblArr): Double;
procedure vWrite(const a: TDblArr; var f: Text; const d: Integer = 1);
function  vRead(var a: TDblArr; var f: Text): Boolean;

implementation

function  vAvg(const a: TDblArr): Double;
var t: Double;
begin
  Result:=0;
  if Length(a)=0 then
    raise EDivByZero.Create('vAvg: empty vector');
  for t in a do Result+=t;
  Result/=Length(a);
end;

procedure vWrite(const a: TDblArr; var f: Text; const d: Integer = 1);
var i: Integer;
begin
  Write(f,'[');
  if Length(a)>0 then Write(f,a[0]:0:d);
  for i:=1 to Length(a)-1 do Write(f,' ',a[i]:0:d);
  Write(f,']');
end;

function  vRead(var a: TDblArr; var f: Text): Boolean;
var n: Integer;
begin {$I-}
  Result:=False;
  Read(f,n); SetLength(a,n);
  for n:=0 to n-1 do Read(f,a[n]);
  if IOResult<>0 then begin
    SetLength(a,0); Exit;
  end;
  Result:=True;
end;

end.

/** Исключение на обработку пустого массива */
public class EmptyArrayException extends Exception {
    public EmptyArrayException() {
        super("Массив пуст!");
    }
}

/** Функциональный интерфейс с методом обработки, способным бросать исключение */
public interface NumericArrayFunc {
    public double func(double [] n) throws EmptyArrayException;
}

/** Функциональный интерфейс с методом, формирующим отображение массива в строке */
public interface StringImageNumericArray {
    public String getImage(double[] n);
}

/** Основная программа демонстрации операций с массивами */
public class ArrayOperationDemo {

    //Утилита формирования результата
    static String printResults(StringImageNumericArray im, NumericArrayFunc naf, double [] m) {
        String result = "Среднее значение элементов массива " + im.getImage(m) + " = ";
        try {
            result += naf.func(m);
        } catch (EmptyArrayException e) {
            result += e.getMessage();
        }
        return result;
    }

    public static void main(String [] args) {

        //Тестовые данные
        final double [] values1 = {1.0, 2.0, 3.0, 4.0};
        final double [] values2 = {-11.0, 4, -562.0, 3.0, 400.0};
        final double [] empty = {};

        //Способ отображения массива
        StringImageNumericArray image = a -> {
            String shape = "[";
            for(int i = 0; i < a.length-1; i++)
                shape += a[i] + ", ";
            if(a.length > 0)
                shape += a[a.length-1];
            return shape + "]";
        };

        //Способ обработки (в данном случае - вычисления среднего значения) элементов массива
        NumericArrayFunc average = n -> {
            double sum = 0;
            if(n.length == 0)
                throw new EmptyArrayException();
            for (double aN : n) sum += aN;
            return sum / n.length;
        };

        //Вывод результата
        System.out.println(printResults(image, average, values1));
        System.out.println(printResults(image, average, values2));
        System.out.println(printResults(image, average, empty));
    }
    /* Результат выполнения
     Среднее значение элементов массива [1.0, 2.0, 3.0, 4.0] = 2.5
     Среднее значение элементов массива [-11.0, 4.0, -562.0, 3.0, 400.0] = -33.2
     Среднее значение элементов массива [] = Массив пуст!
     */
}

{$mode ObjFPC}{$H+}
uses SysUtils;
type
  TDblArr = array of Double;
  NumericArrayFunc = function (const a: TDblArr): Double;
  StringImageNumericArray = function (const a: TDblArr): String;
  EEmptyArray = class(Exception); //Исключение на обработку пустого массива

//Утилита формирования результата
function PrintResults(im: StringImageNumericArray; naf: NumericArrayFunc; m: TDblArr): String;
begin
  Result:='Среднее значение элементов массива ' + im(m) + ' = ';
  try
    Result+=FloatToStr(naf(m));
  except
    on e: EEmptyArray do
      Result+=e.Message;
  end;
end;

//Способ обработки (в данном случае - вычисления среднего значения) элементов массива
function daAverage(const a: TDblArr): Double;
var t: Double;
begin
  Result:=0;
  if Length(a)=0 then
    raise EEmptyArray.Create('Массив пуст!');
  for t in a do Result+=t;
  Result/=Length(a);
end;

//Способ отображения массива
function daImage(const a: TDblArr): String;
var i: Integer;
begin
  Result:='[';
  if Length(a)>0 then Result+=FloatToStr(a[Low(a)]);
  for i:=Low(a)+1 to High(a) do Result+=', '+FloatToStr(a[i]);
  Result+=']';
end;

var values1, values2, empty: TDblArr;
begin
  DecimalSeparator:='.';
  //Тестовые данные
  values1:=TDblArr.Create(1, 2, 3, 4);
  values2:=TDblArr.Create(-11, 4, -562, 3, 400);
  //Вывод результата
  WriteLn(PrintResults(@daImage,@daAverage,values1));
  WriteLn(PrintResults(@daImage,@daAverage,values2));
  WriteLn(PrintResults(@daImage,@daAverage,empty));
end.

import java.util.Locale;
import java.util.Scanner;

public class ArrayInputFromStdIn {

    public static double [] interactiveBuildDoubleArray() {

        int arraysize = 0;

        Scanner coin = new Scanner(System.in);
        coin.useLocale(Locale.ENGLISH);//Точка вместо десятичной запятой

        System.out.print("Введите размер массива: ");
        while(coin.hasNext()) {
            //System.out.println("Попытка ввода размера.");
            if(coin.hasNextInt()) {
                arraysize = coin.nextInt();
                System.out.printf("Размер массива %s элементов.\n", arraysize);
                break;
            } else {
                String str = coin.next();
                System.out.println("Ошибочный формат значения. Повторите ввод размера массива.");
            }
        }
        double [] n = new double [arraysize];

        System.out.printf("Создан массив из %s элементов.\n", n.length);

        int count = 0;
        //coin.useDelimiter(", ");
        System.out.println("Введите значения элементов массива в строку через пробел или по одному:");
        while(coin.hasNext()) {
            System.out.printf("Ввод значения элемента [%s]. ", count);
            if(coin.hasNextDouble()) {
                double k = coin.nextDouble();
                n[count] = k;
                System.out.printf("Элемент [%s] = %s записан.\n", count, n[count]);
                count++;
            } else {
                System.out.println("Нераспознанный формат. Повторите ввод последнего значения.");
                String str = coin.next();
            }
            if (count > n.length-1) break;
        }
        return n;
    }

    /** Тестовая процедура */
    public static void main(String [] args) {
        double [] a = interactiveBuildDoubleArray();
        double sum = 0.0;
        for(double x : a) { sum += x; }
        System.out.println("Среднее значение = " + sum / a.length);
    }
}

/** Основная программа демонстрации операций с массивами */
public class ArrayOperationDemo {

    //Утилита формирования результата
    static String printResults(StringImageNumericArray im, NumericArrayFunc naf, double [] m) {
        String result = "Среднее значение элементов массива " + im.getImage(m) + " = ";
        try {
            result += naf.func(m);
        } catch (EmptyArrayException e) {
            result += e.getMessage();
        }
        return result;
    }

    public static void main(String [] args) {

        //Тестовые данные
        final double [] values1 = {1.0, 2.0, 3.0, 4.0};
        final double [] values2 = {-11.0, 4, -562.0, 3.0, 400.0};
        final double [] empty = {};
        final double [] values3 = ArrayInputFromStdIn.interactiveBuildDoubleArray();

        //Способ отображения массива
        StringImageNumericArray image = a -> {
            String shape = "[";
            for(int i = 0; i < a.length-1; i++)
                shape += a[i] + ", ";
            if(a.length > 0)
                shape += a[a.length-1];
            return shape + "]";
        };

        //Способ обработки (в данном случае - вычисления среднего значения) элементов массива
        NumericArrayFunc average = n -> {
            double sum = 0;
            if(n.length == 0)
                throw new EmptyArrayException();
            for (double aN : n) sum += aN;
            return sum / n.length;
        };

        //Вывод результата
        System.out.println(printResults(image, average, values1));
        System.out.println(printResults(image, average, values2));
        System.out.println(printResults(image, average, empty));
        System.out.println(printResults(image, average, values3));
    }
    /* Результат выполнения
Введите размер массива: 4
Размер массива 4 элементов.
Создан массив из 4 элементов.
Введите значения элементов массива в строку через пробел или по одному:
56
Ввод значения элемента [0]. Элемент [0] = 56.0 записан.
-38.4 16.982
Ввод значения элемента [1]. Элемент [1] = -38.4 записан.
Ввод значения элемента [2]. Элемент [2] = 16.982 записан.
хренотень
Ввод значения элемента [3]. Нераспознанный формат. Повторите ввод последнего значения.
45.782
Ввод значения элемента [3]. Элемент [3] = 45.782 записан.
Среднее значение элементов массива [1.0, 2.0, 3.0, 4.0] = 2.5
Среднее значение элементов массива [-11.0, 4.0, -562.0, 3.0, 400.0] = -33.2
Среднее значение элементов массива [] = Массив пуст!
Среднее значение элементов массива [56.0, -38.4, 16.982, 45.782] = 20.091
     */
}